Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
13. Feb 2004
Hi Keldorn,
die zweite Antwort von Dir wollte ich so umsetzen:
procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
i : integer;
lbSource,lbSender : TListBox;
begin
lbSource := Source as TListBox;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
11. Feb 2004
Und da ist schon das nächste Problem. :mrgreen: Wenn ich Multiselect auf true stelle kann ich mit SHIFT mehrere Elemente auswählen. Sobald ich die Maus benutze um alle zu verschieben ist nur noch eines markiert. Was fehlt da noch ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
11. Feb 2004
Die Teilfrage bleibt offen, ich lebe dann eben vorerst mit zu vielen unnötigen Prozeduren. Jetzt sehe ich gerade, daß die Listbox ja auch Columns hat. Wie behandele ich denn die ? Ich bräuchte 2 Columns pro Listbox und wollte eventuell ein Stringgrid verwenden. Vielleicht tuts die Listbox aber doch. Wie gesagt, die Hauptfrage ist die Verwendung von Drag and Drop.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
11. Feb 2004
Das ist ja auch immer dasselbe, aber es geht nur wenn ich ListBox1..4Dragdrop einzeln aufrufe. Wie meinst du, soll ich das alles auf eine procedure zeigen lassen ? :shock:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
11. Feb 2004
Das war jetzt auch verkehrt. Der Code sieht jetzt so aus:
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := true; //Source is TListBox;
end;
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
var
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
11. Feb 2004
Thx, Dein Code ist etwas übersichtlicher, als meiner und auch kleiner. :mrgreen: So gefällts mir besser. Nur noch ein Schönheitsfehler, zumindest aus meiner Sicht 8) :
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TListBox;
end;
procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
10. Feb 2004
Hi,
habe hier >2 Listboxen. 8) Schiebe damit Zeilen hin und her. Jetzt kommts:
procedure TForm1.ListBox4DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TListBox then with Sender do begin
Text := ListBox2.Items;
ListBox4.AddItem(Text,source);
ListBox2.Items.Delete (ListBox2.ItemIndex);