掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
パネル内のコントロールクリック時、親パネルがクリックされたように見せかけたい (ID：30291)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>パネルとラベルを大量に... でも、ハンドラは一つだけ procedure TForm1.SomeLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; wParent: TControl; begin P := TControl(Sender).ClientToScreen(Point(X, Y)); wParent := TControl(Sender).Parent; if WindowFromPoint(P) = wParent.Handle then begin SomePanelClick(wParent); end; end; procedure TForm1.SomePanelClick(Sender: TObject); begin ShowMessage(TControl(Sender).Name+' CLICK'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.