ＶＢでいうとこのマウスアウトイベントを実現するためには？ (ID:17987)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえず、こんな感じでどうでしょう？

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
  private
    { Private 宣言 }
  protected
    procedure WndProc(var Message : TMessage); override;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message : TMessage);
var
  Sender : TObject;
begin
  case Message.Msg of
  CM_MOUSEENTER:
    begin
      Sender := TObject(Message.LParam);
      if Sender = CheckBox1 then
      begin
        // マウスカーソルがCheckBox1に入ったときの処理
        // ↓とりあえず、フォントを太字に...
        if not (fsBold in CheckBox1.Font.Style) then
          CheckBox1.Font.Style := [fsBold];
      end;
    end;
  CM_MOUSELEAVE:
    begin
      Sender := TObject(Message.LParam);
      if Sender = CheckBox1 then
      begin
        // マウスカーソルがCheckBox1から出たときの処理
        // ↓とりあえず、フォントを標準に...
        if fsBold in CheckBox1.Font.Style then
          CheckBox1.Font.Style := [];
      end;
    end
  end;

// 標準のWndProcを呼び出す。
  inherited WndProc(Message);
end;

←解決時は質問者本人がここをチェックしてください。

戻る