Как запретить перемещение формы?
Материал из DRKB
Как запретить перемещение формы?[править | править код]
type
TyourForm = class(TForm)
private
{ Private declarations }
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;
implementation
procedure TyourForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
with Message do
if Result = HTCAPTION then
Result := HTNOWHERE;
end;
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 00511