Ĺadny brzuch
Witam :P
Mam praktycznie gotowy program, ale brakuje mi jednego:
Chcę, aby był on wyświetlany normalnie, ale żeby w tle było czarny tło (tzn żeby znikał pulpit ikonki itp) poprostu czarne tło na cały ekran i okno programu.
Idzie to zrobić ?
Potrzebuje jak najszybszej odpowiedzi.
Najlepiej, żeby było jak najmniej grzebania w kodzie, boprogram gotowy :D
Z góry dzięki za odpowiedź :)
zrób sobie właściwości formy:
- Color na clBlack
- BorderStyle na bsNone
- WindowState na wsMaximize
:D
I co ta forme w tle niby ?
Za soba pulpit ;)
Ale widzisz jak by cały pulpit był czarny
I co ta forme w tle niby ?
ok mam jeszcze 10 min :) dzieki za odpowiedz :)
Ale jeszcze jedno:
Jak to potem zamknacz poziomu mojego programu ?
Wiedzialem, ale zapomnialem :(
Z gory thx :)
ok mam jeszcze 10 min :) dzieki za odpowiedz :)
Ale jeszcze jedno:
Jak to potem zamknacz poziomu mojego programu ?
Wiedzialem, ale zapomnialem :(
Z gory thx :)
dobra dobra :)
juz se zrobilem
var H:THandle; begin; H:=FindWindow(nil,'blackscreen'); PostMessage(H,WM_QUIT,0,0); end;
:PP
dobra dobra :)
juz se zrobilem
var H:THandle; begin; H:=FindWindow(nil,'blackscreen'); Â PostMessage(H,WM_QUIT,0,0); end;
:PP
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam praktycznie gotowy program, ale brakuje mi jednego:
Chcę, aby był on wyświetlany normalnie, ale żeby w tle było czarny tło (tzn żeby znikał pulpit ikonki itp) poprostu czarne tło na cały ekran i okno programu.
Idzie to zrobić ?
Potrzebuje jak najszybszej odpowiedzi.
Najlepiej, żeby było jak najmniej grzebania w kodzie, boprogram gotowy :D
Z góry dzięki za odpowiedź :)
zrób sobie właściwości formy:
- Color na clBlack
- BorderStyle na bsNone
- WindowState na wsMaximize
:D
I co ta forme w tle niby ?
Za soba pulpit ;)
Ale widzisz jak by cały pulpit był czarny
I co ta forme w tle niby ?

ok mam jeszcze 10 min :) dzieki za odpowiedz :)
Ale jeszcze jedno:
Jak to potem zamknacz poziomu mojego programu ?
Wiedzialem, ale zapomnialem :(
Z gory thx :)
ok mam jeszcze 10 min :) dzieki za odpowiedz :)
Ale jeszcze jedno:
Jak to potem zamknacz poziomu mojego programu ?
Wiedzialem, ale zapomnialem :(
Z gory thx :)

dobra dobra :)
juz se zrobilem
var H:THandle; begin; H:=FindWindow(nil,'blackscreen'); PostMessage(H,WM_QUIT,0,0); end;
:PP
dobra dobra :)
juz se zrobilem
var H:THandle; begin; H:=FindWindow(nil,'blackscreen'); Â PostMessage(H,WM_QUIT,0,0); end;
:PP
