Das hat leider nicht funktioniert. Das Fenster wird über den ganzen Bildschirm gelegt!
Hast du eine andere Idee?
Zitat von
Kamil:
Vielleicht so:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
if BorderStyle<>bsNone then
begin
BorderStyle:=bsNone;
WindowState:=wsNormal;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderStyle:=bsSizeable;
WindowState:=wsMaximized;
end;