作成したexeファイル実行時、必ずTabsheet1をアクティブにするには

解決

John 2010-05-23 00:54:47 No: 38516

こんにちは。
ご質問させてください。

現在、作成しているプログラムにおいて、
PageControlを利用しています。
Sheetが2枚あり(page1とpage2とする)コンパイル→ファイル実行すると、
コンパイル直前にアクティブだったページが必ず表示されてしまいます。
これを実行時に必ず先にpage1をアクティブにさせる方法はございますでしょうか？ご存知でしたら、お教え下さい。

(開発環境はXP,Delphi7)

ん？ 2010-05-23 01:12:59 No: 38517

普通にSetForcusでいいんじゃないの？

よんでじのごとし 2010-05-23 01:51:58 No: 38518

>page1(Tabsheet1)をアクティブにさせる方法は
ActivePageぷろぱてぃ

D 2010-05-23 01:53:08 No: 38519

TPageControlのActivePageプロパティかActivePageIndexプロパティ。

procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.ActivePage := page1;
end;

John 2010-05-23 02:06:36 No: 38520

皆様コメントありがとうございます。
Dさんの形でクリエイト時に読み出せました。
ありがとうございました。