Przesuwanie formy chwytając za komponent

0

Witam, mam problem z przesuwaniem formy.

procedure Tstart.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle, $00A1, htCaption, 0 );
end

end;

Ale wyskakuje mi:
unit1.pas(141,19) Error: Identifier not found "ReleaseCapture"
unit1.pas(142,16) Error: Identifier not found "SendMessage"
unit1.pas(142,41) Error: Identifier not found "htCaption"
unit1.pas(187) Fatal: There were 3 errors compiling module, stopping

Używam Lazarusa.

0

spróbuj

SendMessage(Form1.Handle, $00A1, htCaption, 0 );

I do Uses dodaj Windows, bo tam jest ReleaseCapture;

0

oo thx :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1