Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Mein Methode klappt, aber ich würde das in dem Code #6 haben. Na gut, hab schon eine Lösung. :-D
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Danke dir :thumb:
Kannst du das vllt noch in dem Code #6 ändern? Der gefällt mir besser, für das Auge verschiebt er besser.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Hab das so gemacht:
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var TargetIndex : Integer;
begin
if (Sender is TListBox) and (Source is TListBox) then
begin
with Sender as TListBox do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Und hast du Idee wie man die Items der ListBox2 parallel verschiebt?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Hab diesen Code hier im Forum gefunden :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Was meinst du damit? ItemIndex von ListBox2?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Hab jetzt folgende Lösung gefunden, die auch gut funktioniert. Jetzt muss ich das aber so machen, dass die Items der ListBox2 parallel mit verschoben werden müssen. Wer hat da eine Idee?
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
verschieben, ItemPos, i: integer;
begin
Accept := false;
if not (Source is...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Ja das ist klar, aber weiter? :gruebel:
Hab jetzt folgendes gefunden, aber irgendwie funkt der Code nicht :gruebel:
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TListbox;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
28. Mai 2009
Kann mir jemand auf die Sprünge helfen wie ich die Items bzw. ein Item einer ListBox mittels DragDrop verschiebe?
Alex