// Der Bildschirm
wird mit einem Fenster komplett ausgefüllt.
// Der Vorteil gegenüber WindowState:=wsMaximized
ist, dass die Taskbar
// sofort überdeckt wird.
// Die Methoden funktionieren auch mit den Windows- und Delphiversionen,
bei
// denen Application.BringToFront und BringWindowToTop versagen.
// und mit D4 unter Win98
// Variante 1
procedure TForm1.FormCreate(Sender: TObject);
begin
left := 0; // die Reihenfolge der Anweisungen ist einzuhalten
top := 0;
borderstyle := bsnone;
width := screen.width;
height := screen.height;
end;
// Variante
2
procedure TForm1.FormCreate(Sender: TObject);
begin
borderstyle := bsNone;
SetwindowPos(handle, HWND_TOPMOST, 0, 0, screen.width, screen.height,
SWP_SHOWWINDOW);
end;
|