違うソースをじっこうさせるには？

解決

---

こんにちは。

procedureのなかでほかのprocedureを呼び出すことはできますか？？

編集    削除

---

関数の中からほかの関数を呼ぶ？？
当然できる。

質問の意味不明！！

編集    削除

---

FormCreateの中でTabChengeを実行させたいのですが、どう書けばいいのかがわからないんです。

編集    削除

---

TabControl？
PageControl？

まぁ、TabChange(nil); とか、引数の型を見て書くだけ。

編集    削除

---

しょぼい質問ですいません。
ありがとうございました。

編集    削除

---

Button1を押すとButton2が実行されます。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2Click(Sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  caption := 'Button2Clickが実行されました';
end;

編集    削除

---

あ、自分が質問の意味間違えてましたね、
すいません。
↑は無しということで^^;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //TabControl1なら
  TabControl1.TabIndex := 2;//３番目のタブを選択
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //PageControl1なら
  PageControl1.ActivePage := TabSheet2;//２つ目のタブを選択
end;


という事ですか？
違かったらすいません。

編集    削除

---

何度もすいません

TabControl1Change(Sender);

と書けば、直接実行できます。

例えば、
begin
  TabControl1.TabIndex := 2;
  TabControl1Change(Sender);
end;

なら、コードでページを変更して、
TabControl1Changeを呼び出してタブチェンジを実行します。

編集    削除

---

わざわざありがとうございます。
参考にさせていただきます。

編集    削除

---

名前

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

本文

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