動的に作成したMaskEditのフォーカスをリターンキーで移動するには (ID:23742)

名前

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

本文

XPPro,DL6Proの環境です
フォームにPanelを貼り付けて、ここに、動的にLabelとMaskEditを作成し（それぞれ、20から30個程度）、MaskEditにキーボードより日付を入力し、入力後、リターンキーで次のMaskEditにフォーカスを移動したいと考えています。動的に、LabelとMaskEditは作成できたのですが、MaskEditのフォーカスの移動をどのようにして移動すればよいのかわかりません。どなたか、ご存知の方、よろしくお願いします。
MaskEditは、以下のようにして、作成しています。

//以下、日付入力用のMaskEditの動的作成
//SonotaDayMaskEd  // 動的配列
//SumKaiSonota //作成個数  integer
Procedure Button1Click
begin
   SetLength(SonotaDayMaskEd,SumKaiSonota);//配列の要素数を確定
   for I := 0 to SumKaiSonota-1 do
   begin
   SonotaDayMaskEd[I] :=TMaskEdit.Create(self);
     with SonotaDayMaskEd[I] do
      begin
       if I < 20 then
         begin
         Parent := Panel5;
         Visible := True ;
         Height := 24;
         Top := (20*I) +30 ;
         Left := 210;
         Font.Size := 11;
         Width := 100;
         EditMask := '!9999/99/00;1;_';
         Tag := I ;
         end
        else
         begin
           Parent := Panel5;
           Visible := True ;
           Height:= 24;
           Top := (20*(I-20)) +30 ;
           Left := 550;
           Font.Size := 11;
           Width := 100;
           EditMask := '!9999/99/00;1;_';
           Tag := I ;
        end;
      end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る