イベントを二つ指定するには？

解決

sdwet 2009-03-20 21:56:11 No: 33721

ボタンなどのOnClickなどのイベントを二つ以上割り当てるにはどうすればよいのでしょうか

んん？ 2009-03-20 22:01:17 No: 33722

何のためにそんな必要があるのかな？

sdwet 2009-03-20 22:08:33 No: 33723

えーっと・・・
今Editを並べてデータを入力するようなソフトを作っています
OnChangeで
決められた数以上を入力した場合は上限に戻る、ということと
入力するたびにデータを配列変数に代入する、ということをしたいのです

いくつかのEditにはすでに他のonChangeが割り当てられていてこの二つを指定することが出来ないのです

ちょっと変な文になっちゃいましたね・・・

KHE00221 2009-03-20 22:58:11 No: 33724

>決められた数以上を入力した場合は上限に戻る、ということと
>入力するたびにデータを配列変数に代入する、ということをしたいのです

を必要とする Edit のみ

>いくつかのEditにはすでに他のonChangeが割り当てられていてこの二つを指定することが出来ないのです

この OnChange の内容と

>決められた数以上を入力した場合は上限に戻る、ということと
>入力するたびにデータを配列変数に代入する、ということをしたいのです

を組み込んだ OnChange に変更して下さい。

・・・ 2009-03-20 23:40:58 No: 33725

procedure TForm1.Edit1Change(Sender: TObject);
begin
//いろいろ
TEdit(Sender).Text := ほにゃらら
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  //いろいろ
  Edit1Change(Sender);
  //いろいろ
end;

ということか？

sdwet 2009-03-21 00:13:46 No: 33726

なるほど
二つ指定することは出来ないんですね
・・・さんの方法でやってみます
ありがとうございました

sdwet 2009-03-21 01:30:50 No: 33727

解決にチェックするのを忘れてました