zweites form in der mitte vom ersten öffnen

[Fredyy]

hi,
ich habe in meinen prog 2 forms, doch ich möchte, dass sich das zweite form in der mitte von der aktuellen position des ersten form öffnet, ich habe das auch schon selber probiert jedoch nicht sehr erfolgreich.

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
Form3.Top  := round(Form1.Top + (Form1.Height/2));
form3.Left := round(Form1.Left + (Form1.Width/2));
end;

danke für eure hilfe.
mfg
fredyy

[Christian Seehase]

Moin Fredyy,

probier's mal mit der Höhe und Breite von Form3 ;-)

[Muetze1]

Schau dir mal die Eigenschaft Position der Form an - dort dann u.a. poOwnerFormCenter

[Matze]

Hi,

meinst du vielleicht

Delphi-Quellcode:

Form2.Position := poMainFormCenter;

oder so ähnlich (im OI einstellbar)? Dann ist es zentriert vor dem Hauptformular.


Edit: Ich war wohl zu langsam.

[Fredyy]

danke für die turbo antworten :)

jetzt bleibt nur noch eine frage offen, da sich das form 3 im laufe des progs häufiger öffnen bzw schliessen lässt, kann ich den code ja nicht in OnCreate packen, da würde er ja nur einmal ausgeführt, er soll bei jedem öffnen ausgeführt werden wo muss ich ihn dann rein packen? bin leider noch kein delphi profi.

mfg
fredyy

[RavenIV]

Wie's der Name der Properties schon sagt:
OnCreate: Beim Erzwugen.
OnShow: Beim Anzeigen

[Fredyy]

Zitat:

Zitat von RavenIV

Wie's der Name der Properties schon sagt:
OnCreate: Beim Erzwugen.
OnShow: Beim Anzeigen

wenn ich

Delphi-Quellcode:

procedure TForm3.FormShow(Sender: TObject);
begin
Form3.Position := poMainFormCenter;
end;

mache bekomme ich ne fehlermeldung "Cannot change Visible in OnShow or OnHide", er kann also die position in onshow nicht ändern, ist also leider nicht möglich :(

[Matze]

Hi,

du könntest es bei jedem Aufruf neu setzen:

Delphi-Quellcode:

Form2.Position := poMainFormCenter;
Form2.Show;

[DeddyH]

Dann mach es doch beim Aufruf von Show des Formulars (über Button or whatever):

Delphi-Quellcode:

procedure TFormMain.ButtonShowForm3Click(Sender: TObject);
begin
  Form3.Position := poMainFormCenter;
  Form3.Show;
end;

Ungetestet, sollte aber IMHO funktionieren.

[edit]Matze war einen Tick schneller[/edit]

[Fredyy]

Zitat:

Zitat von Matze

Hi,

du könntest es bei jedem Aufruf neu setzen:

Delphi-Quellcode:

Form2.Position := poMainFormCenter;
Form2.Show;

ah, super da muss man erstmal drauf kommen, dass ganze aus der ersten unit zu steuern :)

danke, damit wäre meine frage geklärt.

mfg
fredyy