Form wird bei onCreate nicht angezeigt

[blondervolker]

Meine Form35 wird bei oncreate nicht angezeigt?

Vielleicht steht auch zu viel Code davor?

Hab schon 'ne Kriese und mein Hund guckt mich schon komisch an...

Code:

Delphi-Quellcode:

procedure TForm33.FormCreate(Sender: TObject);
const
   screenwidthdev = 1280; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev = 720; // Einstellungen auf dem Entwicklungsrechner
var
   x,y:integer;
begin
   scaled := true;
   x:= Screen.width;
   y:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        Form33.Height := (Form33.ClientHeight* y div ScreenHeightDev) +
                                Form33.Height- Form33.ClientHeight;
        Form33.Width := (Form33.ClientWidth * x div ScreenWidthDev) +
                                Form33.Height - Form33.ClientHeight;
        scaleBy(x,Screenwidthdev);
         Form35.Show;
          AdoConnection1.Connected :=true;
           AdoTable1.Active :=true;
            AdoTable2.Active :=true;

end;
end;

[Bernhard Geyer]

Form33 wird geändert und Form35 wird angezeigt?

Wie wäre es mal mit vernünftige Formularnamen? Oder soll das eine art von Quellcodeverschlüsselung sein damit es niemand versteht?

[haentschman]

Hallo...

Im OnCreate ist die Form noch nicht sichtbar. Selbst im OnShow, was danach ausgelöst wird, noch nicht. Erst wenn OnShow abgearbeitet ist wird die Form sichtbar.

Zitat:

Form33 wird geändert und Form35 wird angezeigt?

...upps, hatte ich ganz übersehen

[blondervolker]

Der Code oben ist das Formular 33.

Aber es soll nach der Abarbeitung des Cod's von Formular33 denne das
Formular 35 aufrufen.Mehr nicht.

[Coffeecoder]

Zitat von blondervolker:

Meine Form35 wird bei oncreate nicht angezeigt?


Code:

Delphi-Quellcode:

procedure TForm33.FormCreate(Sender: TObject);
const
   screenwidthdev = 1280; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev = 720; // Einstellungen auf dem Entwicklungsrechner
var
   x,y:integer;
begin
   scaled := true;
   x:= Screen.width;
   y:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        Form33.Height := (Form33.ClientHeight* y div ScreenHeightDev) +
                                Form33.Height- Form33.ClientHeight;
        Form33.Width := (Form33.ClientWidth * x div ScreenWidthDev) +
                                Form33.Height - Form33.ClientHeight;
        scaleBy(x,Screenwidthdev);
         Form35.Show;
          AdoConnection1.Connected :=true;
           AdoTable1.Active :=true;
            AdoTable2.Active :=true;

end;
end;

Hast du ein Breakpoint bei Form35.Show gesetzt und geschaut ob du dahin kommst?

[blondervolker]

Und wenn ich Form35 an letzter Stelle einfüge passiert auch nichts...

Breakpoint? Ich weiss nich weiter

[Coffeecoder]

Zitat von blondervolker:

Und wenn ich Form35 an letzter Stelle einfüge passiert auch nichts...

Breakpoint? Ich weiss nich weiter

Du klickst auf die Zeile wo Form35.Show; steht, dann erscheint ein Roter Punkt am Rand. Wenn du dann dein Programm laufen lässt, wird er dort anhalten.

[haentschman]

Wo wäre denn deine letzte Stelle ?

[blondervolker]

NöööHH ist kein roter Punkt vorhanden.

Bei allen anderen Forms geht es einwandfrei.
Es geht seit dem nicht mehr,wo ich den Code reingebastelt habe
zu Skalierung.Drum stell ich mich zu dähmlich an.

[haentschman]

Zitat:

Es geht seit dem nicht mehr,wo ich den Code reingebastelt habe zu Skalierung

...darauf wollte Coffeecoder ja hinaus. Das Show steht in dem "If Block".

Du mußt für einen Breakpoint nicht auf die Zeile klicken sondern links in die Leiste wo die Zeilennummern stehen.