Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bernd Ua,
11. Feb 2004
Wenn dein Code nur sender/Source verwendet kannst du doch OnDragDrop von
beliebig vielen Listboxen auf ein und dieselbe Methdoe zeigen lassen.
Das mit dem Form brauchst du nicht.
Bernd
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bernd Ua,
10. Feb 2004
wenn Absender und Source die Listboxen wären, so etwa :
procedure TForm1.ListBox4DragDrop(Sender, Source: TObject; X, Y: Integer);
var
lbSource,lbSender : TListBox;
begin
lbSource := Source as TListBox;
lbSender := Sender as TListbox;
lbsender.Items.Add(lbSource.Items;
lbSource.Items.Delete (lbSource.ItemIndex);