اکتیوکنترل فرم !!!

[sahra222]

من یه پیج کنترل گذاشتم به سه تا تب شیت
به اسم :مرحله یک،مرحله دو،مرحله سه
تو تب شیت مرحله 1 یه پیج کنترل دیگه گذاشتم با سه تا تب شیت
به اسم:حذف،جدید،ویرایش
تو تب شیت مرحله 2 ام یه پیج کنترل دیگه گذاشتم باسه تا تب شیت
به اسم:حذف،جدید،ویرایش
توتب شیت مرحله 3ام یه پیج کنترل دیگه گذاشتم با سه تا تیشیت
ه اسم:حذف،جدید،ویرایش
حال میخوام وقتی فرم باز میشه اکتیو کنترل فرم بشه
اونی که قرمز کردم
ولی وقتی تو ان اکتیو فرم این کدو میزارم این ارور میاد


procedure TForm.FormActivate(Sender: TObject);
begin
Form.ActiveControl:=TabSheet4;
end;
end.

cannot focus a disabled or invisible window.

[sahra222]

:لبخندساده: با این درست شد


procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
PageControl1.ActivePage:=TabSheet4;
end;