Ich hab es jetzt so gemacht
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
TH : integer;
R : TRect;
begin
TH := Label1.Height;
Memo1.Clear;
{Memo1.Perform(EM_GETRECT, 0, LongInt(@r));
Memo1.ClientHeight := TH + 10;
R.Top := 5;
R.Bottom := Memo1.ClientHeight;
Memo1.Perform(EM_SETRECT, 0, LongInt(@R));}
Memo1.Lines.Add(ListBox1.Items[0]);
Memo1.Lines.Add(ListBox1.Items[1]);
Memo1.Lines.Add(ListBox1.Items[2]);
Memo1.ClientHeight := TH + 10;
Button1.Caption := IntToStr(Memo1.Height);
end;
Getestet und es wird angezeigt. Nur wenn du das Memo anklickst, springt er zur letzten Zeile (leere; Zeilenanfang)
Gruß NickelM