Drag & Drop TImage
Вот рабочий пример. Расположите на форме панель побольше, скопируйте и измените приведенный код так, чтобы изображение загружалось из ВАШЕГО каталога Delphi.
|
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 := Panel1; AutoSize := True; Picture.LoadFromFile('D:\DELPHI\IMAGES\CHIP.BMP'); DragMode := dmAutomatic; OnDragOver := Panel1DragOver; OnDragDrop := Panel1DragDrop; END; end; |
[000651]
