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

解決

ｋｋ 2009-06-17 20:19:19 No: 34819

こんにちは。

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

どやさ 2009-06-17 23:19:28 No: 34820

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

質問の意味不明！！

kk 2009-06-17 23:26:46 No: 34821

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

はて？ 2009-06-17 23:34:10 No: 34822

TabControl？
PageControl？

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

kk 2009-06-17 23:39:43 No: 34823

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

.Button2Click(Sender 2009-06-18 03:08:24 No: 34824

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

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

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

Button2Click(Sender) 2009-06-18 03:22:40 No: 34825

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

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

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

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

-追伸 2009-06-18 03:32:06 No: 34826

何度もすいません

TabControl1Change(Sender);

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

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

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

kk 2009-06-18 18:11:19 No: 34827

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