Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Drag and drop

    Delphi
    by Hansa, 14. Feb 2004
  Hi,
  
  damit bin ich schon einen ganzen Schritt weiter. :thuimb: Ich benutze aber nur noch das StringGrid. Die Listbox ist doch zu schwach. Jetzt sind aber noch ein paar Sachen nicht richtig. Ich kann eine Zeile in einen Bereich eines Grids ziehen, wo nichts ist. Dann kommt Exception. Ich vermute, daß das mit dem RowCount zu tun hat, oder irgendwo wird noch falsch gezählt.
  
  Mehrere Zeilen zu...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Drag and drop

    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

  Re: Drag and drop

    Delphi
    by Hansa, 13. Feb 2004
  Scheint keinen mehr zu interessieren. :gruebel:
  
  Ich habe das ganze jetzt mal statt mit einer Listbox mit einem StringGrid versucht:
  
  unit StrTestUnit;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Drag and drop

    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

  Re: Drag and drop

    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

  Re: Drag and drop

    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

  Re: Drag and drop

    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

  Re: Drag and drop

    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

  Drag and drop

    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);