![]() |
|
|
|
|
|
|
2
29th October 23:54
External User
Posts: 1
|
try :
void __fastcall TForm1::bStndByClick(TObject *Sender) { Application->ProcessMessages(); TColor Couleur = Panel1->Color; SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED); ::SetLayeredWindowAttributes(Handle, Couleur, 0, LWA_COLORKEY); for(int i = 5; i>0; i--) { Panel1->Caption = IntToStr(i); Application->ProcessMessages(); Sleep(1000); } SendMessage(Application->Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); Close(); } //--------------------------------------------------------------------------- "Ernesto" <enriquevald@yahoo.com> a écrit dans le message de news: 45d4f815@newsgroups.borland.com... |
|