Verschieben von label.captions...

[Ricogue]

ich hab nen dringendes Problem und hoffe, dass ihr mir schnellstmöglich helfen könnt...

meine Programmoberfläche enthält über 100 labels.
Ich möche das Caption eines Labels auf ein anderes Label übertragen, indem ich es mit der Maus verschiebe.
Die Captions sind Zahlen (da sie später als Integer weiter verarbeitet werden sollen). Nun will ich beim ziehen eines Labels auf ein anderes beliebiges, dass sich das verschobene Label zu dem beliebigen addiert.
Ich denke mal ich müsste da mit dragover/drop arbeiten, hab davon jedoch keine Ahnung :wink: .
Ich hoffe ihr könnt mir helfen.

[Gremlin]

Du weisst deinem Ziel(en) diese Events zu und den bei den Quellen setzt du die Property DragMode=dmAutomatic.
In der Caption ist der neue Wert enthalten, den du entsprechend weiterverarbeiten kannst.

Delphi-Quellcode:

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

procedure TForm1.Label2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Assigned(Source) and (Source is TLabel) then
    (Sender as TLabel).Caption := (Source as TLabel).Caption;
end;

[Ricogue]

ok erstma danke...

das problem ist nur...
wenn ich das verschiebe geht das alles prima, doch ich brauch nur über das andere label drüber gehen und es ändert sich.
Ich will es aber genau darüber "fallenlassen" und dann soll sich das label ändern.

[bitsetter]

Hi,

der Code sollte eigentlich funktionieren, denn erst bei onDragDrop und nicht bei onDragOver wird der Text des Label geändert.
Oder hast du da etwa was anders oder falsch gemacht?

[Ricogue]

ok... habs nochmal probiert ^^
und jetzt funktionierts!!
Danke