掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
現在のフォーカスを識別するには？ (ID：864)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 目的は複数タイプのクラスの、あるイベントを一つのロジックで行いたい > ということなのですが。 複数の違う種類のコントロールに同じ処理をしたいなら、以下のように すべて TButton キャストすればＯＫ。(共通のプロパティを設定する場合) ※ OnClick イベントに反応しないコントロールは、OnEnter で。 with TButton(Sender) do begin TOP := 100; LEFT := 200; end; もし、コントロールの種類ごとに別の処理をしたいのなら、 if Sender is TComboBox then begin TComboBox(Sender).TOP := 250; TComboBox(Sender).LEFT := 200; end else if Sender is TListBox then begin TListBox(Sender).TOP := 200; TListBox(Sender).LEFT := 200; end else if Sender is TMemo then begin TMemo(Sender).TOP := 150; TMemo(Sender).LEFT := 200; end else if Sender is TSpeedButton then begin TButton(Sender).TOP := 150; TButton(Sender).LEFT := 400; end else if Sender is TBitBtn then begin TButton(Sender).TOP := 150; TButton(Sender).LEFT := 300; end else with TButton(Sender) do begin TOP := 100; LEFT := 200; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.