2 ListBoxen verkuppeln (Beim Scrollen)

[toms]

Zitat:

einen fehler

*Welchen* Fehler?

[Matze]

Zitat:

Zitat von Delphi-Compiler

[Fehler] Unit1.pas(34): Operator ist auf diesen Operandentyp nicht anwendbar

[Chewie]

Zitat:

Zitat von Matze

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

Meinst du die Klasse hier: http://www.delphipraxis.net/internal...ect.php?t=7023 ??
Die ist von mir, da ist aber nix mit drei Listboxen, sondern nur ein Listview.

[Matze]

Sorry Chewie, das ist es leider nicht. Ich bin mir sicher, dass jemand so etwas in der Art mit 3 ListBoxen gamacht hat.

[Chewie]

Dann ist ja gut. Hab mich schon gewundert :gruebel:...

[toms]

Zitat:

[Fehler] Unit1.pas(34): Operator ist auf diesen Operandentyp nicht anwendbar

Es fehlt eine Klammer vor Message.msg = WM_Mousewheel.

Habe hier noch einen besseren Code gefunden:

hier

[Nalincah]

Falls du es doch mit der Listbox machen willst und ich dich richtig verstanden hab:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender:TObject);
begin
  Listbox2.Itemindex := ListBox1.Itemindex;
end;

Oder andersrum

Delphi-Quellcode:

procedure TForm1.ListBox2Click(Sender:TObject);
begin
  Listbox1.Itemindex := ListBox2.Itemindex;
end;

[Tpercon]

Schau mal hier:Memo's synchron scrollen
Da hatte ich das gleiche "Problem", nur halt in Bezug auf Memo's.

[Matze]

Danke Tpercon!
Aber bei mir geht das nicht so richtig, ich habe meine Frage falsch formuliert, ich meinte nicht scrollen, sonder, wenn ich in einer ListBox was anklicke, dann soll in der daneben liegenden dessen Eintrag auf gleicher Höhe markiert sein. Sorry. :wall:

[kasi]

Dann so:

Code:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.TopIndex := ListBox1.TopIndex;
ListBox2.ItemIndex := ListBox1.ItemIndex;
end;

KASI