掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
任意の項目へフォーカスを移動するには？ (ID：35229)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になります。 日付入力でTMonthCalendarを別のフォームに貼り付けて日付を選択 した後、元のフォームに戻り任意の入力項目（TEdit）へフォーカス したいのですが、どのようにすればよいのでしょうか？ インターネットで検索すると、次の項目または前の項目へフォーカス したりする場合はSendMessage(MyForm.Handle, WM_NEXTDLGCTL, 0, 0); という方法があるようなんですが、任意の項目へフォーカスを移動する 方法がなかなか見つかりません。 どなたかご教授頂けますでしょうか？ 以下は、Form5でTMonthCalendarの日付を選択して、Form5をクローズ して、Form1.Edit2へフォーカスを任意に移動するところで止まって います。TMonthCalendarの日付を選択するところは上手く動作しています。 ---------------------------------------------------------------- procedure TForm5.Button1Click(Sender: TObject); var str_wk : string; begin g1_Birth := MonthCalendar1.Date; DecodeDate(g1_Birth,g1_YY,g1_MM,g1_DD); str_wk := IntToStr(g1_YY) + '/' + IntToStr(g1_MM) + '/' + IntToStr(g1_DD); if g1_Button = 'Form1.Button11' then begin Form1.Edit2.Text := str_wk; Form5.Close; （ここにフォーカス移動のコーディングを入れたい） end; end; ----------------------------------------------------------------
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.