hi,
so gehts
:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var M:TMouse;
begin
windowstate := wsmaximized;
color := clblack;
borderstyle := bsnone;
setfocus;
button1.Hide;
FormStyle := fsstayontop;
showcursor(false);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
color := clbtnface;
borderstyle := bssizeable;
button1.show;
button1.SetFocus;
windowstate := wsnormal;
FormStyle := fsnormal;
showcursor(true);
end;
[EDIT]hab noch formstyle mitreingenommen...[/EDIT]