Schwarzer Fullscreen!

[quakergod]

Hi, wie schaffe ich es das bei Klick auf einen Button der Bildschirm Schwarz wird und beim drücken irgendeiner taste wieder normal?

[Stephan]

Hi,

meinst du Schwarz als "Farbe" oder willst du den Bildschirm "ausschalten"? Falls du ihn nicht ausschalten willst nimm doch einfach ein Form mit schwarzem Hintergrund welches keinen Rahmen hat als Vollbild.

viele Grüße

Stephan

[flomei]

Gefunden auf www.delphi-fundgrube.de

Zitat:

Wie kann man den Monitor in den StandBy-Modus schalten?

Weiß jemand, wie ich in Delphi 3 unter Win98 meinen Monitor in den Standby Modus bringen kann?

Ja, das geht folgendermassen:

Delphi-Quellcode:

//abschalten:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

//anschalten:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

{Beat Schwarzentrub}

Achtung: Wenn du den Monitor ausschaltest, mußt du ihn auch selber wieder anschalten!

Das geht prima bei mir! Kombinier das aber vielleicht nicht mit nem Timer.

Das wär halt Ausschalten. Wenn du den Screen nur schwarz machen willst mach das doch so:

Delphi-Quellcode:

begin
  WindowState := WSMaximized;
  Form1.Font.Color := ClBlack;
end;

Hm Da fällt mir grad auf das geht ja gar nicht. Aber ich denke du weisst was ich meine. Alles unsichtbar und Hintergrund der Form Schwarz machen.

MfG Florian

[Basic-Master]

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]

[flomei]

Genau so was meinte ich!

MfG Florian

[quakergod]

hmmm, das funktioniert das der bildschrim schwarz wird aber man bekommts nicht mehr weg (ausser mit Alt+F4)

[Basic-Master]

hmm ich hab das nur mit einem control (einem button) auf dem form gemacht, da gings...

[quakergod]

Zitat von Basic-Master:

hmm ich hab das nur mit einem control (einem button) auf dem form gemacht, da gings...

hmmm, könntest du deinen source anhängen?

[MadMason]

du musst in den eigenschaften des forms KeyPreview auf true stellen.

[Basic-Master]

ist zwar nur ein button + n form aber na gut hier isser