Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Schwarzer Fullscreen! (https://www.delphipraxis.net/5124-schwarzer-fullscreen.html)

quakergod 25. Mai 2003 00:49


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

Stephan 25. Mai 2003 08:45

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 25. Mai 2003 11:56

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. :mrgreen:

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 :hi:

Basic-Master 25. Mai 2003 12:18

hi,
so gehts :wink: :
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 25. Mai 2003 12:37

Genau so was meinte ich! :D

MfG Florian :hi:

quakergod 25. Mai 2003 14:33

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

Basic-Master 25. Mai 2003 20:10

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

quakergod 26. Mai 2003 18:43

Zitat:

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? :firejump: :love:

MadMason 26. Mai 2003 19:57

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

Basic-Master 26. Mai 2003 21:16

Liste der Anhänge anzeigen (Anzahl: 1)
ist zwar nur ein button + n form aber na gut hier isser :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:08 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz