Procedure für gesamtes Programm

[GLaforge]

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

[Duffy]

Hallo GLaforge,
die Procedure in eine eigene Unit verpacken und diese dann in jeder Unit, in der Du sie brauchst, einbinden. Fertig.

bye
Claus

[Neutral General]

Ich hab da mal eine Anmerkung ...
Wieso nicht einfach wenns auch kompliziert geht

Form1.Position := poScreenCenter; reicht um ein Formular zu zentrieren

[Aenogym]

hi,

binde die procedure im public abschnitt dienes formulars ein:

Delphi-Quellcode:

procedure CenterForm(f: TForm);
//...
procedure TForm1.CenterForm(f: TForm);
begin
  f.Left:= (Screen.Width - f.Width) div 2;
  f.Top:= (Screen.Height - f.Height) div 2;
end;

dann kannst du die procedure in jeder anderen unit aufrufen, in der dein hauptformular in der uses liste steht:

form1.centerform(form2); Aenogym

[Helmi]

Hallo,

wieso benutzt du nicht einfach:

Code:

  Form1.Position := poScreenCenter;

oder:

Code:

  Form1.Position := poDesktopCenter;

mfg
Helmi

[edit] Du kannst das auch schon im OI einstellen [/edit]

[GLaforge]

Es ging jetzt nicht darum wie ich die procedure vereinfachen kann sondern wie ich das einbinde. Ich bedanke mich bei denen die mir geholfen haben dieses leichte Problem zu lösen.

THX