ich möchte via Tastatur meine Anwendung ins Vollbild versetzen und wieder Zurück, dazu habe ich foldenden Code geschrieben:
Code: Alles auswählen
Var
oldtop, oldleft, oldwidth, oldheight: integer;
Procedure TForm1.OpenGLControl1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If (key = 13) And (ssAlt In Shift) Then Begin
If BorderStyle = bsSizeable Then Begin
BorderStyle := bsNone;
WindowState := wsMaximized;
oldtop := Top;
oldleft := Left;
oldwidth := Width;
oldheight := height;
End
Else Begin
// BorderStyle := bsSizeable; -- Hier Knallt es
WindowState := wsNormal;
Top := oldtop;
Left := oldleft;
Width := oldwidth;
height := oldheight;
End;
End;
End;
1. Die Anwendung geht nicht über die Taskleiste (zumindest nicht bei meinem Linux Mint Mate 21.1) -> ist also nicht komplett Vollbild
2. Beim wieder "klein" machen, darf ich anscheinend die BorderStyle nicht mehr wieder Her stellen, sonst bekomme ich ne AV in der LCL
=>
Wie macht man das Richtig, hat da einer ne Idee ?