TImage

[Killbrum]

Всем здрасте Вот у меня тут ещо одна проблемка. Как заставить перемещаться Имаж по курсору? Ну тоисть у меня есть форма, но я хочу ее зделать как БордерСтайл=Ноне. И при нажатии на Картинку чтоб она передвигалась по курсору. Просто тут CaretPos на Имаже не работает Зарание большое спасибо!

[Stilet]

Ты мышой хочешь схватить картинку и переместить?
Так это описано тут уж не раз да и DragDrop еще не отменили

[Killbrum]

Ну.. несовсем. Может вы видели лаунчера или программы, где какбы главной формы невидно. А стоит рисунок. Тоисть форма фигурная получается. Фигурную форму я зделал с помощью png а вот чтобы она ещо и передвигалась... тоисть вместо формы1 у меня главная имаж1. На какой и все происходит. Но как зделать чтоб позиция формы менялась с курсором? Я пишу в Маус Доун.
Form1.Left:=CaretPos(x);
Но оно непонимает что такое Карет пос

[Stilet]

Form1.Left:=Mouse.CursorPos.x;

Ясно?

[puporev]

Если нужно за Image таскать мышкой форму, попробуй так:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;

[russian-stalker]

Смотри чё покажу(c)

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with Source as TImage do
  begin
    Left := X;
    Top := Y;
  end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TImage;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TImage.Create(Self) do
  begin
    Parent := form1;
    AutoSize := True;
    Picture.LoadFromFile('D:\DELPHI\IMAGES\CHIP.BMP');
    DragMode := dmAutomatic;
    OnDragOver := Panel1DragOver;
    OnDragDrop := Panel1DragDrop;
  end;
end;

[Roof]

думаю, что тут я отвечу на твой вопрос. Качай исходник. Обрати внимание на свойства Align у обоих Image. Image1 - это силуэт формы. Его можно просто черным сделать для уменьшения объема, но для данной функции рисунок силуэта возможен только в bmp формате. Image2 - это рисунок, который накладывается на силуэт формы. Т.е. лицо программы. Здесь тоже png использован в Image2. В Image2 вроде вообще любой поддерживаемый формат можно грузить.

p.s. - надеюсь у тебя поддерживается png формат в Image. Если нет - то грузи в Image2 картинку в любом другом формате.

[Killbrum]

Спасибо всем. Вот тут у меня незадача. А как убрать форму? )) Тоисть чтоб она стала прозрачной и под ней было видно рабочий стол? Но без альфа бленда

[Killbrum]

А все зделал
Form1.Color:=clNone;

Всем спасибо. Тему можна закрывать