Komponenten sollen bleiben wo sie sind

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  Button1.Left := Form1.Width div 2 - Button1.Width div 2;
  Button1.Top := Form1.Height div 2 - Button1.Height;
end;

Der Button bleibt immer in der Mitte.

[Pseudemys Nelsoni]

genau so meinte ich das, vielen dank für die mühe :)

[Luckie]

Keine Ursache, ich bin heute gut drauf.

[Pseudemys Nelsoni]

hat hoffentlich nichts mit drogen zu tun :)

[Luckie]

Delphi-Quellcode:

Button1.Left := Form1.ClientWidth div 2 - Button1.Width div 2;
Button1.Top := Form1.ClientHeight div 2 - Button1.Height div 2;

Mach es so, ist besser. Bei Form1.Height ist noch die Titelzeile mit dabei.

[Pseudemys Nelsoni]

ah, das ist super, hat mich immerschon gewundert das die titelleiste mitgezählt wurde, naja form1.heigh schliesst die titelleiste eben mit ein, das mit clientheigh etc hab ich noch nie benutzt, gut zu wissen 8)

dankö^^

[Pseudemys Nelsoni]

hm aber mit mehren kompos klappt das nicht da sie ja dann alle in er mitte bleiben würden(also alle übereinander)....ich möchte das verhältnis aber nur beibehalten...

ich hatte das mit einer prozdur versucht

Delphi-Quellcode:

procedure NewCompPos(comp: TWinControl);
var
  percL, percT: integer;
begin
  with comp as TWinControl do
  begin
    percL := FormW DIV comp.Left;
    percT := FormH DIV comp.Top;
    comp.Left := Form1.Width DIV percL;
    comp.Top := Form1.Height DIV percT;
  end;
end;

FormW und FormH sind 2 globale veriablen die die alte form1 grösse beinhalten.... aufrufen tu ichs dann halt mit

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  NewCompPos(Panel1);
end;

nur irgendwie funktionietr das ganze noch nicht so, wenn ich die fenster grösse ändere ist das panel in der bewegung viel lahmer als das fenster selbst, wieso das?