Forum: Programmieren allgemein
by xZise,
27. Sep 2010
Vielleicht übersehe ich was (benutze keine TActionList),
aber wenn du was in der Listbox 1 dropst, wird doch das aufgerufen:
procedure TFMain.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
index: Integer;
begin
with Sender as TListBox do
begin
index := ItemAtPos(Point(X, Y), True);
Items.Move(ItemIndex, index);
Forum: Programmieren allgemein
by xZise,
27. Sep 2010
Moin,
ich frage mich gerade, was da zu den with-Blöcken gehören soll. Ich selber habe den Code nicht durchgetestet sondern nur gesehen, dass die Einrückung komisch aussieht.
Zum Beispiel das hier:
with at do
Listbox2.Items.Exchange(Listbox2.ItemIndex, Pred(Listbox2.ItemIndex));
Listbox1.Items.Exchange(Listbox1.ItemIndex, Pred(Listbox1.ItemIndex));
Was soll der Code machen?...
Forum: Programmieren allgemein
by xZise,
27. Sep 2010
Moin guck dir mal MoveDownActionExecute an und rücke mal richtig ein:
So ist es "falsch":
if foo then
blub;
bla;
So ist es "richtig":
if foo then
blub;
bla;