Animate zentrirt auf Panel

[Poseidon]

Hallo Delphianer,

auf meinem Form ist ein Panel (Panel1) und auf diesem ist ein Animate (Animate1) wie schaffe ich es das das Animate immer direckt in der mitte vom Panel ist, auch wenn man die größe von Animate1 werend der Laufzeit ändert? Danke im voraus

mfg Poseidon

[freak4fun]

Der Abstand nach links ist (Panelbreite - Animatebreite) / 2 und der Abstand nach oben (Panelhöhe - Animatehöhe) / 2. :)

[Angel4585]

und das ganze im onResize Ereignis des Panel und vom Animate ;)

[freak4fun]

Ich hatte lange Weile:

Delphi-Quellcode:

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
    Memo1.Left := 1;
    Memo1.Width := Panel1.Width - 2;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  if (Panel1.Height > Memo1.Height + 25) then
  begin
    Memo1.Height := Memo1.Height + 25;
    Memo1.Top := round((Panel1.Height - Memo1.Height) / 2);
  end
  else
  begin
    Memo1.Top := 1;
    Memo1.Height := Panel1.Height - 2;
  end;
end;

Nur mal so als Beispiel. :drunken:

[Angel4585]

hä? Ich dachte er wollte die größe das animate verändern und das animate zentriert im Panel darstellen :gruebel:

[freak4fun]

Ja, nur habe ich hier ein Memo, statt einem Animate. :gruebel: Ich denke es sollte klar werden, wie es geht.

[Poseidon]

Danke Funktioniert alles :thumb: :-D