Einzelnen Beitrag anzeigen

Benutzerbild von GLaforge
GLaforge

Registriert seit: 16. Nov 2003
Ort: Halle
106 Beiträge
 
Delphi 6 Enterprise
 
#1

Procedure für gesamtes Programm

  Alt 19. Dez 2004, 18:45
Hi,
hab mal ne Frage bezüglich Proceduren und ihre Anwendbarkeit. Ich möcht zum Beispiel folgende Procedure in der MainUnit einbinden.
Delphi-Quellcode:
procedure CenterForm(f: TForm);
begin
 f.Left:= (Screen.Width - f.Width) div 2;
 f.Top:= (Screen.Height - f.Height) div 2;
end;
Diese Procedure zentriert das Formular. Dies soll aber für mehrere Formulare in dem Programm möglich sein ohne das ich in jeder einzelnen Unit diese CenterForm-Procedure einbinden muss. Wie kann ich das möglichst einfach realisieren. Bin für jede Antwort dankbar.

cu
Cogito ergo sum - Ich denke also bin Ich
  Mit Zitat antworten Zitat