Form wird bei onCreate nicht angezeigt

[blondervolker]

Meine Form35 wird bei oncreate nicht angezeigt?

Vielleicht steht auch zu viel Code davor?:oops:

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

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.:oops:

[Coffeecoder]

Zitat:

Zitat von blondervolker (Beitrag 1152517)

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

Delphi-Quellcode:

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:gruebel:

[Coffeecoder]

Zitat:

Zitat von blondervolker (Beitrag 1152528)

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

Breakpoint? Ich weiss nich weiter:gruebel:

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.

[DeddyH]

Nimm erstmal die benannte Instanz da raus, wenn es sich um TForm33 handelt, dann greift man nicht auf Form33 zu, sondern auf self. Und was genau soll da jetzt eigentlich passieren?

[blondervolker]

Es soll nur dir Form 35 angezeigt werden als Info.
In der Form35 ist ein Bild vorhanden und ein "OK" Button, mehr nicht.

[Bernhard Geyer]

Wird auch Form33 mit angezeigt? Falls ja schieb mal das Formular weg. Da du das Formular mit Show anzeigen willst wird es vermutlich hintern dem Form35 liegen (oder wars umgekehrt? Bei diesen komischen nummer kommt man so durcheinander).

[blondervolker]

Einen Breakpoint habe ich gesetzt.Hab alles durchlaufen lassen.

0 Fehler 0 Warnungen.

Hab dann mal probiert auf onShow,aber geht auch nicht.
Das Formular wird auch im Hintergrund nich angezeigt.:oops:

[himitsu]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1152519)

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" ? :wall:


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:

Zitat von himitsu (Beitrag 1152539)

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. :angle:

[blondervolker]

Es gibt den Spruch:

Man sieht den Wald vor Bäumen nicht.:thumb:

Form35.Showmodal; :cheer::bounce1::cheers:

Das war's!:oops:

Vielen Dank:wink:

[QuickAndDirty]

SuperTopMostWindow

ftw

google es

[shmia]

Zitat:

Zitat von DeddyH (Beitrag 1152533)

Nimm erstmal die benannte Instanz da raus, wenn es sich um TForm33 handelt, dann greift man nicht auf Form33 zu, sondern auf self.

Das hat blondervolker jetzt bestimmt nicht verstanden, obwohl das ein ganz wichtiger Hinweis ist.

Delphi-Quellcode:

procedure TForm33.FormCreate(Sender: TObject);
begin
  // FALSCH !
  Form33.Height := (Form33.ClientHeight* y div ScreenHeightDev) +
                                Form33.Height- Form33.ClientHeight;

  // Richtig
  self.Height := (self.ClientHeight* y div ScreenHeightDev) +
                                self.Height- self.ClientHeight;

  // Auch richtig
  Height := (ClientHeight* y div ScreenHeightDev) +
                                Height- ClientHeight;

[blondervolker]

Danke für die Antwort. Aber das Problem ist schon gelöst:)

[rwachtel]

Zitat:

Zitat von blondervolker (Beitrag 1152594)

[...] Aber das Problem ist schon gelöst:)

Ist es nicht.

[DP-Maintenance]

Dieses Thema wurde am "26. Apr 2012, 18:41 Uhr" von "fkerber" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Sonstige Fragen zu Delphi" verschoben.