Hallo !
Nachstehende Variante habe ich schon probiert, funktioniert nicht:
Delphi-Quellcode:
procedure TFMain.MoveUpActionExecute(Sender: TObject);
var
at: TListBox;
begin
with Sender as TAction do
at := ActiveControl as TListBox;
with at do
Items.Exchange(ItemIndex, Pred(ItemIndex));
end;
end;
Ich dachte, muss beide Listboxen ansprechen?
Das andere sieht schon besser aus, geht trotzdem nicht!
Delphi-Quellcode:
procedure TFMain.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
index: Integer;
begin
with Sender as TListBox do
index := ItemAtPos(Point(X, Y), True);
Accept := (Sender = Source) and (index > -1);
end;
Bin für jeden Tipp, ob Lösung oder Schreibweise! dankbar.
mfg
ml
