Delphi drag and drop.avi
Me icentivem a continuar fazendo vídeos aulas: Divulgue!
=========================
Capturar a imagem:
--------
(Sender as TImage).Picture.Assign((Source as TImage).Picture);
=========================
Criar o Componente:
-----
var
Novo: TImage;
begin
opendialog1.Execute;
if opendialog1.FileName = '' then exit;
Novo := TImage.Create(Self);
with Novo do
begin
Proportional := true;
Top := 24;
Height := 75;
Width := 75;
DragMode := dmAutomatic;
Picture.LoadFromFile(opendialog1.FileName);
Parent := Panel1;
end;