AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Mehrere Listboxen synchronisieren

Ein Thema von nezumi7 · begonnen am 19. Jun 2024 · letzter Beitrag vom 20. Jun 2024
Antwort Antwort
Seite 1 von 2  1 2   
nezumi7

Registriert seit: 11. Apr 2011
71 Beiträge
 
#1

Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 08:01
Guten Morgen,

ich habe auf Basis eines älteren Forenbeitrags ein Prog geschrieben, bei dem zwei Listboxen immer synchron sind. Ich müsste das irgendwie so ergänzen, dass das auch mit drei oder mehr Listboxen klappt (haben alle immer exakt dieselbe Anzahl von items). Leider komme ich nicht weiter. Kann mir bitte jemand einen Tipp geben?

Das ist der Code für zwei Listboxen:

Delphi-Quellcode:
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls;

type
  TMyListbox = class(TListbox)
  private
  Fref : TCustomListbox;
  procedure WMMouseWheel (var Message: TWMMouseWheel); message WM_Mousewheel;
  procedure WMHScroll(var Message: TWMHScroll);
  message WM_HScroll;
  procedure WMVScroll(var Message: TWMVScroll);
  message WM_VScroll;
  public
  constructor Create(AOwner: TComponent); override;
  published
  property Reference: TCustomListbox read FRef
  write FRef;
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    LBox : TMyListbox;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Listbox1.Touch.InteractiveGestures := [];
LBox := TMyListbox.Create(self);
with LBox do begin
Parent := self;
visible := true;
top := 8;
Left := 248;
Width := 217;
Height := Listbox1.height;
Reference := Listbox1;
end;

for i := 0 to 1000 do begin
Listbox1.Items.Add(inttostr(i));
LBox.Items.Add(Inttostr(i));
end;

end;


constructor TMyListbox.Create(AOwner: TComponent);
begin
inherited;
FRef := nil;
end;

procedure TMyListbox.WMMouseWheel(var Message: TWMMouseWheel);
begin
inherited;
If Assigned(FRef) then FRef.TopIndex := Topindex;
end;

procedure TMyListbox.WMHScroll(var Message: TWMScroll);
begin
inherited;
end;

procedure TMyListbox.WMVScroll(var Message: TWMScroll);
begin
inherited;
if assigned(FRef) then FRef.TopIndex := Topindex;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
LBox.Free;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#2

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 09:00
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
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.622 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 10:07
Wie wäre es ganz simpel mit einer Listview?
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
DaCoda

Registriert seit: 21. Jul 2006
Ort: Hamburg
145 Beiträge
 
Delphi 12 Athens
 
#4

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 11:56
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"
Debuggers don’t remove bugs, they only show them in slow-motion.
  Mit Zitat antworten Zitat
tomkupitz

Registriert seit: 26. Jan 2011
339 Beiträge
 
Delphi 12 Athens
 
#5

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 13:21
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.
  Mit Zitat antworten Zitat
nezumi7

Registriert seit: 11. Apr 2011
71 Beiträge
 
#6

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 14:23
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.
  Mit Zitat antworten Zitat
tomkupitz

Registriert seit: 26. Jan 2011
339 Beiträge
 
Delphi 12 Athens
 
#7

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 16:32
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.
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.622 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 21:27
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.

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.

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
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
nezumi7

Registriert seit: 11. Apr 2011
71 Beiträge
 
#9

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 22:00
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.

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.

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;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.122 Beiträge
 
Delphi 12 Athens
 
#10

AW: Mehrere Listboxen synchronisieren

  Alt 19. Jun 2024, 23:50
Für die globale Variable bekommst'e erstmal den Popo verhauen.

Wieso hörst du nicht auf den Compiler?
z.B. [dcc32 Hinweis] H2164 Variable 'i' wurde deklariert, aber in 'TForm1.FormCreate' nicht verwendet

Warum einmal OnMessage über TApplicationEvents auf der Form,
aber dann abweichend OnIdle über das globale Application?
Wenn, dann am Besten beides einheitlich über TApplicationEvents.


Delphi-Quellcode:
  public
    ActiveLB: TListBox;
  end;

var
  Form1: TForm1;
  
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if ListBox1.Handle = msg.hwnd then ActiveLB := ListBox1 else
  if ListBox2.Handle = msg.hwnd then ActiveLB := ListBox2 else
  if ListBox3.Handle = msg.hwnd then ActiveLB := ListBox3;
end;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
  if Assigned(ActiveLB) then begin
    if ActiveLB <> ListBox1 then ListBox1.TopIndex := ActiveLB.TopIndex;
    if ActiveLB <> ListBox2 then ListBox2.TopIndex := ActiveLB.TopIndex;
    if ActiveLB <> ListBox3 then ListBox3.TopIndex := ActiveLB.TopIndex;
    ActiveLB := nil; // einmal abgearbeitet, dann abschalten, sonst triggert sich das auf ewig immer wieder selbst.
    // in LB1 scrollen löst Scrollen in LB2 und LB3 aus, was wiederum Messages in diesen auslöst usw.
    // Du hast echt Glück, dass im Setter von TopIndex ein "if GetTopIndex <> Value then" steht und es schnell endet
    //
    // PS: also können die "if ActiveLB <> ListBox1 then" weg (ähnlich dem nachfolgenden Beispiel)
  end;
end;
oder einfach alles direkt und umgehend
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  C: TWinControl;
  //L: TListBox absolute C;
begin
  C := FindControl(msg.hwnd);
  if (C is TListBox) and C.Focused then begin // bzw. falls weitere ListBoxen :: if C.Focused and ((C = ListBox1) or (C = ListBox2) or (C = ListBox3)) then
    //if (ListBox1 <> L) and (ListBox1.TopIndex <> L.TopIndex) then ListBox1.TopIndex := L.TopIndex;
    //if (ListBox2 <> L) and (ListBox2.TopIndex <> L.TopIndex) then ListBox2.TopIndex := L.TopIndex;
    //if (ListBox3 <> L) and (ListBox3.TopIndex <> L.TopIndex) then ListBox3.TopIndex := L.TopIndex;
    // jupp, die Prüfungen weg, siehe Setter von TopIndex
    ListBox1.TopIndex := TListBox(C).TopIndex;
    ListBox2.TopIndex := TListBox(C).TopIndex;
    ListBox3.TopIndex := TListBox(C).TopIndex;
  end;
end;
oder am Besten garnicht ganz global, sondern direkt nur in den ListBoxen, also anstatt OnMessage
Delphi-Quellcode:
type
  TListBox = class(Vcl.StdCtrls.TListBox)
  protected
    // im StandardHandler
    // WM_VSCROLL
    // CN_VSCROLL
    procedure WndProc(var Message: TMessage); override;

    // oder gezielt die gewünschte(n) Message(s) und Notification(s)
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL; // oder CN_VSCROLL
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.

Geändert von himitsu (20. Jun 2024 um 11:33 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz