Zum markierten Objekt scrollen in einer Scrollbox

[marabu]

Hallo Michael,

mit Delphi würde ich etwa so vorgehen:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  // die drei auf der ScrollBox verteilten Memos 
  // in die ListBox eintragen:
  with ListBox.Items do
  begin
    AddObject('Memo1', Memo1);
    AddObject('Memo2', Memo2);
    AddObject('Memo3', Memo3);
  end;
end;

procedure TDemoForm.ListBoxClick(Sender: TObject);
begin
  // Beim Klicken auf einen Memo-Eintrag der ListBox
  // wird das entsprechende Memo in den sichtbaren
  // Bereich gerollt:
  with ListBox do
    ScrollBox.ScrollInView(TControl(Items.Objects[ItemIndex]));
end;

Freundliche Grüße