Einzelnen Beitrag anzeigen

axelf98

Registriert seit: 27. Aug 2003
Ort: Ennepetal
440 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Form verändern und alles verändert sich

  Alt 5. Jan 2004, 22:47
Hiermit kann man ein beliebiges visuelles Objekt mittig plazieren, indem man in OnResize die Prozedur ObjektMittigPlazieren einfügt.

Delphi-Quellcode:
procedure ObjektMittigPlazieren(Objekt: TControl; Formular: TForm);
begin
  Objekt.Top := (Formular.Height div 2) - (Objekt.Height div 2);
  Objekt.left := (Formular.Width div 2) - (Objekt.Width div 2);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  ObjektMittigPlazieren(Button1,Form1);
end;
  Mit Zitat antworten Zitat