Category: Forms
Title: Prevent a Form from Moving or Resizing
Date added: 15.03.2006
Hits: 1622

private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

implementation

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if ((Msg.CmdType and $FFF0) = SC_MOVE) or
    ((Msg.CmdType and $FFF0) = SC_SIZE) then
  begin
    Msg.Result := 0;
    Exit;
  end;
  inherited;
end;

1. How to get a PopupMenuItems Parent? (1449 Hits)

2. How to show a form in full-screen mode? (4097 Hits)

3. How to make a window borderless while dragging? (1496 Hits)

4. How to know if the form is modal? (1686 Hits)

5. How to shade components? (52 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.