Mover un label en tiempo de ejecución

[CarlosAlberto]

Estimada Caro: gracias por la repuesta. Crearlo pude hacerlo pero para moverlo dentro del form donde lo cree ¿cómo hago? o ¿cómo llego a un evento del label ceado?
Saludos.
Carlos Alberto

[ecfisa]

Hola Carlos.

Si queres utilizar Drag&Drop sobre el TLabel que creaste para situarlo en el TPanel, podrías hacer:

Código Delphi [-]
  ...
  private
    FLabel: TLabel;
    procedure LabelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  public
  end;
...

implementation

(* Label OnMouseDown *)
procedure TForm1.LabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 TLabel(FindComponent('MiLabel')).BeginDrag(True);
end;

(* Crear Label *)
procedure TForm1.Button1Click(Sender: TObject);
begin
  FLabel:= TLabel.Create(Self);
  FLabel.Name:= 'MiLabel';
  FLabel.Left:= 10;
  FLabel.Top:= 10;
  FLabel.Parent:= Self;
  FLabel.OnMouseDown:= LabelMouseDown;
end;

(* Panel OnDragOver *)
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:= Source is TLabel;
end;

(* Panel OnDragDrop *)
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TLabel(FindComponent('MiLabel')).Parent:= Panel1;
end;

Saludos.

[*Caro*]

Hola de nuevo CarlosAlberto, puedes utilizar también el parámetro source de los eventos OnDragDrop y OnDragOver, te pongo un ejemplo.

Digamos que quieres crear varios TLabel y no solo uno y asignarles el evento Onclick a todos, en cual solo vamos a mostrar su Caption de cada Label.

Código Delphi [-]
  public
    I : Integer;
    Lab:TLabel;
    procedure LabClick(Sender: TObject);

....................................................
....................................................
//Evento Onclick del Label
procedure TForm1.LabClick(Sender: TObject);
begin
 Showmessage(TLabel(Sender).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Lab:=TLabel.Create(self);
 With Lab do
 begin
  Parent:=self;
  Caption:='Label'+IntToStr(I);
  //si quieres también le puedes dar un nombre a cada label creado en este ej. vacío para todos
  Name := '';
  //esta propiedad es para trabajar con los eventos Drag&Drop
  DragMode := dmAutomatic;
  Left:=10;
  Top:=I;
  OnClick := LabClick;//Aquí le asignamos en mismo evento OnClick a cada Label
  Inc(I,20);
 end;
end;

Y en los eventos OnDragDrop y OnDragOver del Panel lo siguiente.

Código Delphi [-]
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TLabel) then
   begin
    TLabel(Source).Parent := Panel1;
    TLabel(Source).Left := X;
    TLabel(Source).Top := Y;
   end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept := (Source is TLabel);
end;

Si tienes duda sobre algo, solo pregunta y no te olvides inicializar I en en Oncreate de tu formulario.

Saluditos