Drag and Drop TImage . Delphi , Синтаксис , Drag and Drop

Вот рабочий пример. Расположите на форме панель побольше, скопируйте и измените приведенный код так, чтобы изображение загружалось из ВАШЕГО каталога Delphi.

Вот обновленный код, который загружает изображение из вашего собственного каталога и улучшает существующий код:

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Forms,
  System.SysUtils,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TImage.Create(Panel1) do
  begin
    Parent := Panel1;
    AutoSize := True;
    Picture.LoadFromFile('C:\Путь\К\Изображению.jpg'); // Замените это на путь к вашему файлу изображения
    DragMode := dmAutomatic;
    OnDragOver := Panel1DragDrop;
    OnDragDrop := Panel1DragDrop;
  end;
end;

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with TImage(Source) 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;

end.

Когда вы запустите этот код, он создаст новую форму, и когда вы перетаскиваете изображение на панель, оно будет опускаться туда.

В статье описывается пример использования компонента TImage в Delphi для создания приложения, позволяющего перетаскивать изображение из каталога на форму.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS