短縮するには？

解決

はまや 2003-11-03 21:26:54 No: 5568 IP: 192.*.*.*

はじめまして、はまやともします。
Edit1.Font.Size:=13;
Edit1.Font.Style:=[fsBold];
〜
Edit50.Font.Size:=13;
Edit50.Font.Style:=[fsBold];
Edit1からEdit50までフォントサイズ、太字を変更して表示して使いたいのですが
２，３行でおさめる方法がありましたら教えてください

編集削除

＊ 2003-11-03 21:37:40 No: 5569 IP: 192.*.*.*

For i:=1 to 50 do
  with TEdit(FindComponent('Edit'+inttostr(i))).Font do
  begin
    Size:=13;
    Style:=[fsBold];
  end;

編集削除

はま 2003-11-04 20:57:58 No: 5570 IP: 192.*.*.*

*さん
有難う御座います。
解決しました。

編集削除