掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カスタムコンポーネントで親フォームの移動を検知したい (ID：48407)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
KONさん、ありがとうございます。 親フォームから子コンポーネントに通知するのではなく、カスタムコンポーネント内で親フォームの移動を検知したいのですができないでしょうか。 フォームにコードを追加することなく、カスタムコンポーネントを設置するだけで動作するようにしたいです。 TEditのNumbersOnlyプロパティをTrueにした時、数字以外を入力すると表示されるバルーンと同じ動作をイメージしています。 エラー表示は具体的には以下のようなコードになっています。 procedure THogeEdit.ShowBallonTip(title, msg: string); var ti: TOOLINFO; pt: TPoint; begin // FTipWndはprivateメンバです if FTipWnd <> 0 then begin DestroyWindow(FTipWnd); end; FTipWnd := CreateWindow(TOOLTIPS_CLASS, nil, TTS_BALLOON, 0, 0, 0, 0, Self.Handle, 0, HInstance, nil); // 表示位置(pt)の計算処理がありますが略 ti.cbSize := SizeOf(ti); ti.uFlags := TTF_TRACK; ti.hwnd := Self.Handle; ti.lpszText := PChar(msg); SendMessage(FTipWnd, TTM_ADDTOOL, 0, Integer(@ti)); SendMessage(FTipWnd, TTM_SETTITLE, TTI_ERROR, Integer(PChar(title))); SendMessage(FTipWnd, TTM_TRACKPOSITION, 0, MAKELONG(pt.X, pt.Y)); SendMessage(FTipWnd, TTM_TRACKACTIVATE, 1, Integer(@ti)); SetTimer(FTipWnd, TIMER_ID_CLOSE, 10000, @Timerproc); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.