フォーラム： "Main";
現在のアーカイブ：2002.01.08;
ダウンロード：[xml.tar.bz2];

ダウン

人、ごく簡単な質問です。 一言で手続きへのリンク。 似ている枝を探す

← →
Serg5   (2001-12-19 15:14) [0]

procedure TForm1.Button1Click（送信者：TObject）;
VAR
ａ、ｂ：整数。
始まる
a：= 3;
b：= 0;
b：= a * StrToInt（Edit4.Text）* StrToInt（Edit3.Text）;
Label7.Caption：= IntToStr（b）;
終わり

procedure TForm1.Button2Click（送信者：TObject）;
始まる
Button1Click（）; <<<<彼女に書くものは何ですか？
終わり

ありがとうございます！

---

← →
tovSuhov   (2001-12-19 15:20) [1]

ランタイムでイベントを再定義する必要がない場合は、Object InspectorでButton1ClickをOnClickイベントに割り当てることができます。

---

← →
MBo   (2001-12-19 15:25) [2]

送信者が作成しますが、tovSuhovが作成または質問した方が簡単です（TForm1.Createでも）
Button2.Onclick：= Button1Click;

---

← →
Alexander   (2001-12-19 15:51) [3]

Button1Click（Self）;

---

← →
Mick   (2001-12-19 15:59) [4]

この特定のケースでは、Button1Click（nil）と書くだけです。

---

ページ： 1 全枝

フォーラム： "Main";
現在のアーカイブ：2002.01.08;
ダウンロード：[xml.tar.bz2];

2階

メモリ：0.56 MB
時間：0.027 c