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;