Mehrere Listboxen synchronisieren

[DeddyH]

Zitat:

property Reference: TCustomListbox

Das ist eine ListBox.

Delphi-Quellcode:

property References: TList<TCustomListbox> //oder auch TObjectList<TCustomListbox>
read FReferences;

Das ist eine Liste von ListBoxen, die kann man in einer Schleife durchlaufen. Oder man benutzt gleich das Observer-Pattern

[jaenicke]

Wie wäre es ganz simpel mit einer Listview?

[DaCoda]

Eventuell kannst du ja auch mit einer einzigen Listbox, mit mehreren Spalten arbeiten, das geht eigentlich sehr elegant und du kannst sortieren etc. ohne etwas zu "verwirbeln"

[tomkupitz]

So:

Code:

if (Msg.Msg=WM_VSCROLL) then
  begin
    i:=GetScrollPos(ListBox1.Handle, SB_VERT);
    PostMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), i), 0);
    Application.ProcessMessages;

    ...
  end
  else
  if (Msg.Msg=WM_MOUSEWHEEL) then
  begin
    i:=GetScrollPos(ListBox1.Handle, SB_VERT);
    PostMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), i), 0);
    Application.ProcessMessages;

    ...
  end;

Entsprechend dann für ListBox2.

[nezumi7]

Vielen Dank Euch allen für die wertvollen Hinweise!

Die Vorschläge von Detlef und tomkupitz sind für einen Hobby-Feierabend-Programmierer wie mich starker Tobak, da muss ich mich erstmal reinfuchsen. (tomkupitz: wo würde Dein Code aufgerufen und was müsste bei den Platzhaltern "....." noch ergänzt werden?)

Sebastian, danke für den Hinweis. Mit Listview hatte ich es schon mal versucht, hatte dabei aber den Eindruck gewonnen, dass die Listview eher zeilenmäßig aufgebaut ist mit Caption, item, subitem usw. Ich fand das auch derart unübersichtlich dass ich es wieder gelassen habe, aber vielleicht ist Listview in der Tat das Richtige. Das Problem bei Listview ist aber, dass ich immer nur ein paar Spalten brauche und die dann je nach Bedarf ein und ausschalten will (ich hätte die verschiedenen Listboxen dazu auf mehrere Seiten eines PageControls gepackt)

Dacoda, ich wusste nicht, dass es mehrere Spalten in einer Listbox gibt und habe dazu auch nichts gefunden. Oder meintest Du eine Listview?

LG, Stephan.

[tomkupitz]

Du legst eine TApplicationEvents-Komponente auf die Form. Im TApplicationEvents.OnMessage Event fängst du die Windows-Messages ab. Dann achtest du auf TMsg:

hwnd: HWND; ist die entsprechende ListBox (if ListBox1.Handle=hwnd then ...)
message: UINT; ist die zugehörige Windows-Message (if message=WM_VSCROLL oder message=WM_MOUSEWHEEL then)

Die Pünktchen bedeuten erstmal garnichts.

[jaenicke]

Zitat von nezumi7:

Sebastian, danke für den Hinweis. Mit Listview hatte ich es schon mal versucht, hatte dabei aber den Eindruck gewonnen, dass die Listview eher zeilenmäßig aufgebaut ist mit Caption, item, subitem usw.

Das ist richtig, aber ich sehe darin kein Hindernis.

Zitat von nezumi7:

Das Problem bei Listview ist aber, dass ich immer nur ein paar Spalten brauche und die dann je nach Bedarf ein und ausschalten will

Du kannst z.B. die Breite einfach auf 0 setzen.

Ich würde dir zur TVirtualStringTree raten. Die ist anfangs etwas schwieriger zu nutzen, kann dafür aber deutlich mehr.

Zitat von nezumi7:

Dacoda, ich wusste nicht, dass es mehrere Spalten in einer Listbox gibt und habe dazu auch nichts gefunden. Oder meintest Du eine Listview?

Dazu hat Marco etwas geschrieben:
Classic Tips: VCL Multi Column ListBox

[nezumi7]

Zitat von jaenicke:

Zitat von nezumi7:

Sebastian, danke für den Hinweis. Mit Listview hatte ich es schon mal versucht, hatte dabei aber den Eindruck gewonnen, dass die Listview eher zeilenmäßig aufgebaut ist mit Caption, item, subitem usw.

Das ist richtig, aber ich sehe darin kein Hindernis.

Zitat von nezumi7:

Das Problem bei Listview ist aber, dass ich immer nur ein paar Spalten brauche und die dann je nach Bedarf ein und ausschalten will

Du kannst z.B. die Breite einfach auf 0 setzen.

Ich würde dir zur TVirtualStringTree raten. Die ist anfangs etwas schwieriger zu nutzen, kann dafür aber deutlich mehr.

Zitat von nezumi7:

Dacoda, ich wusste nicht, dass es mehrere Spalten in einer Listbox gibt und habe dazu auch nichts gefunden. Oder meintest Du eine Listview?

Dazu hat Marco etwas geschrieben:
Classic Tips: VCL Multi Column ListBox

Interessant. Ich glaube nach Deinen Hinweisen werde ich es doch noch mal mit einer Listview versuchen, insbesondere weil es da einfacher ist, die einzelnen Spalten an die Größe der Einträge anzupassen. Bei mehreren Listboxen nebeneinander müsste man wohl mit mehreren Splittern arbeiten, was auch schnell unhandlich wird.

Inzwischen habe ich aber eine Lösung mit Listboxen gefunden, die ich Euch nicht vorenthalten möchte. Bisschen pfuschig vielleicht, funktioniert aber:

Delphi-Quellcode:

  private
  procedure SyncLBs(Sender: TObject; var Done: Boolean);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  activelb: Integer;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  i: Integer;
  wnd: hwnd;
  begin
 wnd := msg.hwnd;
 if listbox1.handle = wnd then activelb := 1 else
 if listbox2.handle = wnd then activelb := 2 else
 if listbox3.handle = wnd then activelb := 3; 
 end;

procedure TForm1.SyncLBs(Sender: TObject; var Done: Boolean) ;
var lb: TListBox;
begin
  if activelb = 1 then begin
   Listbox2.TopIndex:= listbox1.TopIndex;
   Listbox3.TopIndex:= listbox1.TopIndex;
   end else
   if activelb = 2 then begin
   listbox1.TopIndex:= Listbox2.TopIndex;
   Listbox3.TopIndex:= listbox2.TopIndex;
   end else
   if activelb = 3 then begin
   listbox1.TopIndex:= Listbox3.TopIndex;
   Listbox2.TopIndex:= listbox3.TopIndex;
   end else
 end;

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
  Application.OnIdle := SyncLBs;
end;