Как стандартными функциями Delphi

@CrossExE · Регистрация: 03.04.2010

Author24 — интернет-сервис помощи студентам

Запретить перемещение (перетаскивание) и изменение размера ФОРМЫ, по отдельности могу а вот вместе (перемещение и изменение) не получается ?)))

@Inadequate · 26.04.2010, 07:46

Delphi

...
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
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;
...

@CrossExE 10 / 10 / 2 Регистрация: 03.04.2010 Сообщений: 160
		1
	Как стандартными функциями Delphi 26.04.2010, 05:04. Показов 1565. Ответов 1 Метки нет (Все метки) Запретить перемещение (перетаскивание) и изменение размера ФОРМЫ, по отдельности могу а вот вместе (перемещение и изменение) не получается ?))) 0

	26.04.2010, 07:46

Опции темы

Как стандартными функциями Delphi

Решение