|
Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: Bildschirmschoner über die Taskleiste
27. Dez 2008, 01:34
Probier den folgenden Code im OnCreate:
Delphi-Quellcode:
var
i : Integer;
begin
i:=(Width-ClientWidth) div 2;
SetBounds(-i,-i,Screen.Width+2*i,Screen.Height+2*i);
BorderStyle muss bsNone sein
Alex
"Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|