Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
3. Jul 2003
Hm, ich weiß nicht, wie es da aussieht, aber versuche mal: procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
I, NewPos: Integer;
Temp: TStringList;
begin
if not (Sender = Source) and (Sender = ListBox1) then
Exit;
Temp := TStringList.Create;
try
NewPos := ListBox1.ItemAtPos(Point(X, Y), True);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
3. Jul 2003
Das hat mich auch interessiert, hier die Lösung. Ändere folgende Eigenschaften der ListBoxDragMode: dmAutomatic
MultiSelect: True
Dann musst Du folgenden Code für die Ereignisse OnDragDrop und OnDragOver der ListBox eingebenprocedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Sender = Source) and (Sender =...