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

名前

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

本文

通りすがりさん、かふぇさん以下のようにすることにより解決できました
有難うございました

//以下、日付入力用のMaskEditの動的作成
//SonotaDayMaskEd  // 動的配列
//SumKaiSonota //作成個数  integer
Procedure Button1Click
 var  const NameMyMaskEdit = 'MyMaskEdit';//追加
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 ;
          Name := NameMyMaskEdit + IntToStr(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 ;
            Name := NameMyMaskEdit + IntToStr(I);//追加
        end;
      end;
end;

//以下、新たに追加
procedure TFrmSagyoDay.MoveNextEdit(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var I,j : Integer;
begin
 if key = VK_Return then
   begin
   I := TMaskEdit(Sender).Tag ;
   for J := 0 to Panel5.ControlCount-1 do
     begin
       If (I = J) and (I < SumKaiSonota-1) then
         TMaskEdit(FindComponent(AnsiReplaceStr(TMaskEdit(Sender).Name,IntToStr(I),IntToStr(I+1)))).SetFocus;
      end;
   end;
end;

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

戻る