procedure TForm1.FormCreate(Sender: TObject); begin ... SetWindowLong(Handle, GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) xor WS_EX_NOACTIVATE ); ... end;