Советы по Delphi

         

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]



Содержание раздела