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

解決

ｋｋ  2009-06-17 11:19:19  No: 34819  IP: 192.*.*.*

こんにちは。

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

編集 削除
どやさ  2009-06-17 14:19:28  No: 34820  IP: 192.*.*.*

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

質問の意味不明！！

編集 削除
kk  2009-06-17 14:26:46  No: 34821  IP: 192.*.*.*

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

編集 削除
はて？  2009-06-17 14:34:10  No: 34822  IP: 192.*.*.*

TabControl？
PageControl？

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

編集 削除
kk  2009-06-17 14:39:43  No: 34823  IP: 192.*.*.*

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

編集 削除
.Button2Click(Sender  2009-06-17 18:08:24  No: 34824  IP: 192.*.*.*

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

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

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

編集 削除
Button2Click(Sender)  2009-06-17 18:22:40  No: 34825  IP: 192.*.*.*

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

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

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


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

編集 削除
-追伸  2009-06-17 18:32:06  No: 34826  IP: 192.*.*.*

何度もすいません

TabControl1Change(Sender);

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

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

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

編集 削除
kk  2009-06-18 09:11:19  No: 34827  IP: 192.*.*.*

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

編集 削除