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

解決

John  2010-05-22 15:54:47  No: 38516  IP: 192.*.*.*

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

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

(開発環境はXP,Delphi7)

編集 削除
ん？  2010-05-22 16:12:59  No: 38517  IP: 192.*.*.*

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

編集 削除
よんでじのごとし  2010-05-22 16:51:58  No: 38518  IP: 192.*.*.*

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

編集 削除
D  2010-05-22 16:53:08  No: 38519  IP: 192.*.*.*

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

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

編集 削除
John  2010-05-22 17:06:36  No: 38520  IP: 192.*.*.*

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

編集 削除