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?

[himitsu]

Zitat von 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?

Warum sage ich blos immer wieder wieder "Laßt die Finger von den globalen Variablen" ?


PS: Den BreakPoint setzt man, um zu sehn ob etwas dort vorbeikommt UND um sich eventuell mal ein paar Variablen im Debugger anzusehn, ob da auch das drinsteht, was man erwartet.
Setzt/Anhalten und dann nichts machen zu machen, wäre ja wohl etwas sinnlos/nutzlos.

[Coffeecoder]

Zitat von himitsu:

PS: Den BreakPoint setzt man, um zu sehn ob etwas dort vorbeikommt UND um sich eventuell mal ein paar Variablen im Debugger anzusehn, ob da auch das drinsteht, was man erwartet.
Setzt/Anhalten und dann nichts machen zu machen, wäre ja wohl etwas sinnlos/nutzlos.

Eben. Jetzt ist die Frage, ob deine If-Abfrage ignoriert wird? Schreibe ein Showmessage('vor dem if'); vor deine If-Abfrage, einen in dein If aber mit anderem Text und einen nachder If-Abfrage.

[himitsu]

Oder schau mit F7 (Einzelschritt) nach, was gemacht wird.

[blondervolker]

Es gibt den Spruch:

Man sieht den Wald vor Bäumen nicht.

Form35.Showmodal;

Das war's!

Vielen Dank

[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