フリーソフト

« [Delphi] 「デスクトップの表示」や「Windows+D」でも最小化されないウインドウの作り方 | トップページ | [Windows] 「最近使ったファイル」を消す »

[BCB] タイトルバーがないフォームを移動する

//Header file
class TForm1 : public TForm
{
__published: // IDE 管理のコンポーネント
private: // ユーザー宣言
  void __fastcall WMNCHitTest(TWMNCHitTest &Msg);

BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
END_MESSAGE_MAP(TComponent)
public:  // ユーザー宣言
  __fastcall TForm1(TComponent* Owner);
};


//cpp file
void __fastcall TForm1::WMNCHitTest(TWMNCHitTest &Msg)
{
  DefaultHandler(&Msg);

  if (Msg.Result==HTCLIENT) {  // クライアント領域がクリックされら
    Msg.Result = HTCAPTION;    //タイトルバーがクリックされたと Windows に思わせる
  }
}

« [Delphi] 「デスクトップの表示」や「Windows+D」でも最小化されないウインドウの作り方 | トップページ | [Windows] 「最近使ったファイル」を消す »

C++Builder」カテゴリの記事

フォーム・ダイアログ関連」カテゴリの記事