Hossa!
Ist es möglich in Delphi4 mit nur einer Scrollbar durch mehrere Elemente zu scrollen?
z.b. zwei Memoboxen o.ä.
Irgendwie ist das schon möglich, glaub über die Message WM_SCROLL oder sowas…
Nimm doch das TScrollBar-Objekt, da kannst Du beim Ereignis OnChange genau festlegen, was passieren soll. Wenn Du damit beispielsweise ein Memo scrollen willst, so musst Du die Eigenschaft „SelStart“ in die Zeile setzen, die ganz unten angezeigt werden soll. Beispiel:
procedure TForm1.ScrollBar1Change(Sender: TObject);
var s1, i: integer;
begin
s1 := 0;
for i := 0 to ScrollBar1.Position-1 do
s1 := s1 + length(Memo1.Lines[i]);
Memo1.SelStart := s1;
Memo1.SelLength := 0;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ScrollBar1.Max := Memo1.Lines.Count;
end;
In der Ereignisroutine können dann natürlich mehrere Objekte bearbeitet werden.
Gruss Dieter