Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

タイトルバーの「×」を使えなくする


procedure TForm1.Button2Click(Sender: TObject);
procedure EnableMenuItemChange(const byEnable : Byte; const stCap : String);
begin
EnableMenuItem(GetSystemMenu(Handle,false), SC_CLOSE, MF_BYCOMMAND or byEnable);
TButton(Sender).Caption := stCap;
end;
begin
if TButton(Sender).Caption = 'on' then
EnableMenuItemChange(MF_DISABLED, 'off')
else
EnableMenuItemChange(MF_ENABLED, 'on');
end;

[Alt]+[F4]は使えるので、これも使えなくしないといけない。

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2005/09/20(火) 12:53:01|
  2. Delphi

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。