/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Delphi 1

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]