0

Windows 7 で Delphi XE 2010 を使用しています。タスクバー ボタンを左クリックしたときに、フォーカスを設定して子フォームを他の子フォームの前に移動できるようにする必要があります。 .

そのため、そのためのコールバック プロシージャをどのように記述するかを知る必要があります。WM_LEFTBUTTONUP を試してみましたが、子フォームだけでなくアプリケーション全体に反応しているようです。

これは私が今持っているすべてです。プロシージャの定義が完全ではありません。受信するメッセージの種類などを現在調査中です。

procedure WMnclb(var Msg:TMessage) ; message WM_NCLBUTTONUP;

procedure TViewFrm.WMnclb(var Msg: TMessage);
begin
  if Msg.LParam<0 then
    Msg.LParam:=0;
end;

どんな助けでも大歓迎です。

4

0 に答える 0