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;