Einzelnen Beitrag anzeigen

Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#1

Form wird bei onCreate nicht angezeigt

  Alt 23. Feb 2012, 13:48
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;
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat