Form'un taşınmasınıengellemek ?
type
TForm1 = class(TForm)
private
Procedure WMSysCommand( Var msg: TWMSysCommand ); message WM_SYSCOMMAND;
public
{ Public tanımlar }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
if (msg.CmdType and $FFF0) = SC_MOVE then begin
msg.result := 0;
exit;
end;
inherited;
end;