Mega Code Archive

 

Categories / Delphi / Forms

 

Form Flipper proc (win2k)

Title: Form Flipper proc (win2k) Question: Here's a wierd little routine to flip a form... only works under Windows 2000. Answer: procedure FlipWindow( WindowHandle: THandle); var Style: LongInt; begin Style:=GetWindowLong( WindowHandle, GWL_EXSTYLE); Style:=Style - WS_CAPTION; SetWindowLong( WIndowHandle, GWL_EXSTYLE, Style); end; // use it like: // (simple huh?) procedure TForm1.Button1Click( Sender: TObject) begin FlipWindow( Handle); end;