フォームを重ねて表示するには？ (ID:5898)

名前

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

本文 試していませんが、ActiveControlで出来ませんか？ 文字入力フォームを mojiForm, ひらがな一覧表フォームの[あ]ボタンをButtonAとすると、ButtonAのOnClickにて、 begin if Assigned(mojiForm.ActiveControl) then begin if mojiForm.ActiveControl Is TCustomEdit then begin (mojiForm.ActiveControl As TCustomEdit).SelText := 'あ'; end; end; end; こんな感じに。 TCustomEditクラス以外のクラスから派生したものであれば、if文を増やせばよろしいかと。 もちろん、別の管理方法を持っているのであれば、そちらを使用してください。 これは一例ですから。