eror

[mojtaba0912433]

سلام
من از اين كد براي حركت نكردن فرم استفاده مي كنم ولي ارور مي ده لطفا راهنمايي كنين

procedure Tsanad1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited ;
with Message do
if Result = HTCAPTION then
Result := HTNOWHERE;
end;
اين ارور
Incompatible types: 'Integer' and 'THitTest'
لطفا راهنمايي كنيد
Result := HTNOWHERE; اين قسمت

[BORHAN TEC]

به جای کدی که نوشتی از کدی مثل این استفاده کن::چشمک:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
procedure WMPosChange(var Message: TWMWINDOWPOSCHANGING);message WM_WINDOWPOSCHANGING;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{ TForm1 }

procedure TForm1.WMPosChange(var Message: TWMWINDOWPOSCHANGING);
begin
PWindowPos(TMessage(Message).lParam).Flags := PWindowPos
(TMessage(Message).lParam).Flags or SWP_NOMOVE or SWP_NOSIZE;
end;

end.