2 ListBoxen verkuppeln (Beim Scrollen)

**Matze**

Hi Leute!

Ja, wie mache ich das?
Ich habe 2 ListBoxen, die jeweils gleich viele Items haben. Wenn ich jetzt nun an der einen LB rumscrolle, dann soll die 2. auch mitscrollen, sodass ich die Einträge immer auf gleicher Höhe habe.

Ich hoffe, ihr versteht meine Frage.

versuch mal 'ne TListView, statt 2 Listboxen!

**Matze**

Danke Illu.

Jetzt gibt's nur noch ein Problem: Ich hab noch nie mit einer ListView gearbeitet.

Ich weiß nicht, wer es war, aber irgendjemand hat hier mal so einen HexViewer programmiert. Der wurde auch mit 3 ListBoxen erstellt.

**Matze**

So geht das leider nicht:

markieren

Delphi-Quellcode:

			procedure TForm1.ListBox1Click(Sender: TObject);

begin

  ListBox2.Selected[ListBox1.ItemIndex]:=true;

end;

**Alexander**

neue Frage, neuer Thread

Nutzt du jetzt statt den beiden Listboxen eine Listview?
Nun ja da brauchst du das ja gar nicht, du willst doch das die ganze Zeile markiert wird oder wie?
Da gibt es eine Eigenschaft. ICh glaube RowSelect oder so heißt die, probier es mal aus..

**Matze**

Danke Alex. Aber ich bin immer noch bei meiner alten Frage, wie ich das mit einer ListBox (besser gesagt: mit 2 ListBoxen) machen soll.

**Alexander**

mhm es gibt die WM WM_MOUSEWHEEL, damit könnte man vielleicht was anfangen.
Musst de mal schauen, ich habe jetzt leider keine Zeit mehr mir das genauer anzukucken..

http://msdn.microsoft.com/library/de...MOUSEWHEEL.asp

**Matze**

Danke, aber das muss doch irgendwie anders gehen.

Ich glaube Spider war das mit dem HexViewer, bin mir aber nicht sicher. Falls du es warst, Spider, dann melde dich bitte.

**toms**

zusammenfalten · markieren

Delphi-Quellcode:

			private 

   OldGridProc1, OldGridProc2: TWndMethod; 

   procedure Grid1WindowProc(var Message: TMessage); 

   procedure Grid2WindowProc(var Message: TMessage); 

 public 

{...} 

procedure TForm1.Grid1WindowProc(var Message: TMessage); 

begin 

  OldGridProc1(Message); 

  if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or 

      Message.msg = WM_Mousewheel)) then 

  begin 

    OldGridProc2(Message); 

  end; 

end; 

procedure TForm1.Grid2WindowProc(var Message: TMessage); 

begin 

  OldGridProc2(Message); 

  if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or 

     (Message.msg = WM_Mousewheel)) then 

  begin 

    OldGridProc1(Message); 

  end; 

end; 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  OldGridProc1 := ListBox1.WindowProc; 

  OldGridProc2 := ListBox2.WindowProc; 

  ListBox1.WindowProc := Grid1WindowProc; 

  ListBox2.WindowProc := Grid2WindowProc; 

end;

**Matze**

Hi! Danke, nur bringt er hier einen fehler:

markieren

Delphi-Quellcode:

			  if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or

      Message.msg = WM_Mousewheel)) then

Wie ist das? Geht das auch, wenn ich nur auf die Scrollbar an der Seite der ListBox klicke, oder nur, wenn ich am Mausrad drehe?

2 ListBoxen verkuppeln (Beim Scrollen)

2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Re: 2 ListBoxen verkuppeln (Beim Scrollen)

Forumregeln

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#1 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 17:16 Hi Leute! Ja, wie mache ich das? Ich habe 2 ListBoxen, die jeweils gleich viele Items haben. Wenn ich jetzt nun an der einen LB rumscrolle, dann soll die 2. auch mitscrollen, sodass ich die Einträge immer auf gleicher Höhe habe. Ich hoffe, ihr versteht meine Frage.
	Zitat

Illuminator-23-5 (Gast) n/a Beiträge	#2 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 17:17 versuch mal 'ne TListView, statt 2 Listboxen!
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#3 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 18:22 Danke Illu. Jetzt gibt's nur noch ein Problem: Ich hab noch nie mit einer ListView gearbeitet. Ich weiß nicht, wer es war, aber irgendjemand hat hier mal so einen HexViewer programmiert. Der wurde auch mit 3 ListBoxen erstellt.
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#4 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 18:25 So geht das leider nicht: markieren Delphi-Quellcode: procedure TForm1.ListBox1Click(Sender: TObject); begin ListBox2.Selected[ListBox1.ItemIndex]:=true; end;
	Zitat

Alexander Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET	#5 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 18:29 neue Frage, neuer Thread Nutzt du jetzt statt den beiden Listboxen eine Listview? Nun ja da brauchst du das ja gar nicht, du willst doch das die ganze Zeile markiert wird oder wie? Da gibt es eine Eigenschaft. ICh glaube RowSelect oder so heißt die, probier es mal aus.. Alexander
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#6 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 18:32 Danke Alex. Aber ich bin immer noch bei meiner alten Frage, wie ich das mit einer ListBox (besser gesagt: mit 2 ListBoxen) machen soll.
	Zitat

Alexander Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET	#7 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 19:00 mhm es gibt die WM WM_MOUSEWHEEL, damit könnte man vielleicht was anfangen. Musst de mal schauen, ich habe jetzt leider keine Zeit mehr mir das genauer anzukucken.. http://msdn.microsoft.com/library/de...MOUSEWHEEL.asp Alexander
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#8 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 23. Sep 2003, 19:23 Danke, aber das muss doch irgendwie anders gehen. Ich glaube Spider war das mit dem HexViewer, bin mir aber nicht sicher. Falls du es warst, Spider, dann melde dich bitte.
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#10 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 24. Sep 2003, 19:40 Hi! Danke, nur bringt er hier einen fehler: markieren Delphi-Quellcode: if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or Message.msg = WM_Mousewheel)) then Wie ist das? Geht das auch, wenn ich nur auf die Scrollbar an der Seite der ListBox klicke, oder nur, wenn ich am Mausrad drehe?
	Zitat