Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Jul 2008
Ja, nur habe ich hier ein Memo, statt einem Animate. :gruebel: Ich denke es sollte klar werden, wie es geht.
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Jul 2008
Ich hatte lange Weile:
procedure TForm2.Button1Click(Sender: TObject);
begin
if (Panel1.Width > Memo1.Width + 25) then
begin
Memo1.Width := Memo1.Width + 25;
Memo1.Left := round((Panel1.Width - Memo1.Width) / 2);
end
else
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by freak4fun,
14. Jul 2008
Der Abstand nach links ist (Panelbreite - Animatebreite) / 2 und der Abstand nach oben (Panelhöhe - Animatehöhe) / 2. :)