Hola koiji y bienvenido a Club Delphi
Como a todo aquél que comienza a participar te invitamos a que leas nuestra
guía de estilo
Cita:
el asunto del drap drop me gustaria saber como funciona
|
En referencia a esa consulta, te pongo un ejemplo con un
TEdit y un
TMemo:
Código Delphi
[-]
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.BeginDrag(True);
end;
procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:= Source is TEdit;
end;
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Memo1.Text:= (Source as TEdit).Text;
end;
Fijate que al pié de la página tenés enlaces relacionados con tu consulta, también podes realizar busquedas con el término "Drag&Drop" para ampliar.
Saludos.