usersに指定したFindComponentの使用方法? (ID:41639)

名前

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

本文 procedure TForm3.Button3Click(Sender: TObject); var SpeedButton: TSpeedButton; begin SpeedButton := TSpeedButton(Form3.FindComponent('SppedButton2')); if Assigned(SpeedButton) = True then begin SpeedButton.Enabled := True; end; end; procedure TForm3.Button4Click(Sender: TObject); begin //実行時にSpeedButton2が無いとエラーになる TSpeedButton(Form3.FindComponent('SpeedButton2')).Enabled := True; end;