ウインドウを移動できないようにする

■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

■ウインドウを移動させない処理
procedure TForm1.Button1Click(Sender: TObject);
var
　hMen: Integer; //システムメニューのハンドル
begin
　
　//システムメニューのハンドルを取得する
　hMen := GetSystemMenu(Form1.Handle, False);
　//「移動」のメニューを削除
　DeleteMenu (hMen, SC_MOVE, MF_BYCOMMAND);

end;




Win32APIのページへ



ホーム PV ランキング