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

[Illuminator-23-5]

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:

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. :gruebel:

[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]

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:

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? :gruebel: