ShowModal Problem

[Master_BB]

Hya,
ich hab ein Problem mit 2 Formen.
Und zwar hab ich eine MainForm die immer angezeigt werden soll.
In der MainForm gibt es eine Procedure die so aussieht

Delphi-Quellcode:

...
  Application.CreateForm(TWilkommenForm, WilkommenForm);
  WilkommenForm.ShowModal;
  if WilkommenForm.ModalResult = mrCancel then
    Beenden;
...

So nun sagt er mir aber aus einem Sichtbaren Fenster kann kein Modales gemacht werden.
Jedoch hab ich unter projektoptionen eingestellt das es nicht automatisch erzeugt wird.
Wie kann ich den Fehler weg bekommen?

Greetz

[fkerber]

HI!

Vielleicht ein

Delphi-Quellcode:

Application.ShowMainForm:=False;

?

Ciao fkerber

[Sharky]

Hai Master_BB,

ich mache das immer so:

Delphi-Quellcode:

var
  WilkommenForm : TWillkommenForm;
begin
  WillkommenForm := TWillkommenForm (self);
  if (WilkommenForm.ShowModal = mrCancel) then
    Beenden;
...

[Master_BB]

Also mit fkerbers methode gehts nicht - kommt der selbe fehler
bei sharkys methode kommt kein fehler die form wird jedoch nicht angezeigt.

[Sharky]

Uff,

ich hoffe Du hast den Fehler bemerkt?

Code:

 WillkommenForm := TWillkommenForm[b].Create[/b] (self);

:wall: Ich werde langsam alt merke ich.

[Master_BB]

nun kommt wieder der showmodal fehler

[Sharky]

Zitat:

Zitat von Master_BB

nun kommt wieder der showmodal fehler

Ähmm..... Du hast bei deiner TWillkommenForm die Eigenschaft Visible aber auf False stehen oder?

[Master_BB]

sie stand auf visible, ich habs jetzt auf visible = false gestellt
und jetzt gehts bis auf das die mainform nicht im hintergrund angezeigt
wird

[HW764]

Statt Showmodal nur Show verwenden.

Gruss

[franksch88]

Code:

begin
  WillkommenForm:=TWillkommenForm.Create(Application);
   // und dann der rest
end;

So gehörts sich eigentlich...

Edit: oder vielleicht noch besser

Code:

begin
  with TWillkommenForm.Create(Application) do
    if ShowModal=mrCancel then Form1.Close;
end;