Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Listbox items auf ein panel verschieben
qwertzuiopü - So 25.02.07 19:02
Titel: Listbox items auf ein panel verschieben
Halli Hallo,
ich hätte gerne gewust, ob es eine möglichkeit giebt, Listbox items mit hilfe der maus auf ein panel zu ziehen, so das dann der string des item in panel.caption wandert?
Blackheart666 - So 25.02.07 19:13
Ja per Drag & Drop
GTA-Place - So 25.02.07 19:43
Mich hat grad mal interessiert, wie das geht. Deshalb hier der Source:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
Temp: TListBox;
begin
Temp := (Source as TListBox);
Panel1.Caption := Temp.Items[Temp.ItemIndex];
end;
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source = ListBox1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.DragMode := dmAutomatic;
end; |
qwertzuiopü - Mo 26.02.07 09:42
cool, danke für die hilfe
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!