التحكم في التنقل بين TabSheet الخاصة بـ PageControl

[abdelmalek]

السلام عليكم ورحمة الله وبركاته
عندي فورم تحتوي على PageControl بها ثلاثة TabSheet .
كيف يمكنني منع المستخدم من التنقل بين لـ TabSheets إلا اذا قام بـ الضغط على button معين .

[TF6M]

السلام عليكم
- في الحدث OnChange

PHP كود :

procedure TForm1.PageControl1Change(Sender: TObject);
begin
 PageControl1.ActivePage:= TabSheet1;
end; 


- كود الـ Button

PHP كود :

PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex + 1; 


بالتوفيق,,

[abdelmalek]

بارك الله فيك اخي الحبيب TF6M على التواصل
اضن ان مشكلة غير واضحة ساقوم بتوضيحها اكثر
عندما يشغل المستخدم البرنامج تكون له الحرية في التنقل بين TabSheet .
في حالة ماذا ذخل المستخدم على TabSheet وغيرا في Edit مثلا يمنع من التنقل الى TabSheet الاخرى
الا ادا ضغط على button apply في هاته الحالة يمكنه التنقل الى ايي TabSheet اخر
اضن ان المشكلة اتضحة نوعنا ما .

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
جرب:

PHP كود :

PageControl1.SelectNextPage(True); 


عند كل نقر.

[abdelmalek]

بارك الله فيكم على المجهود الجبار

المشكلة لم تحل بعد .لتوضيح اكثر :
- عندي برامج يحتوي على فورم به PageControl بها ثلاثة TabSheet .
TabSheet1 : تحتوي على edit1 و button1
TabSheet2 : تحتوي على edit2 و button2
TabSheet3 : تحتوي على edit3 و button3

عندا تشغيل البرنامج في المرة الاولى يستطيع المستخدم التنقل بين لـ TabSheets بضغط على ايي واحدة
لنفرض ان المستخدم اختارى TabSheet1 ، وقاما بالتعديل على edit1 في هاته الحالة يمنع المستخدم
من التنقل الى TabSheet2 و TabSheet3 حتى يضغط على button1 التي بضورها تعيد الصلاحية
للمستخدم بان يتنقل الى ايي TabSheet.ليس المقصود عند الضغط على button1 يتم التنقل الى TabSheet .

[kachwahed]

إضبط AllowChange من الحدث OnChanging لـ TPageControl بما يناسبك

PHP كود :

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange := Edit1.Text = '';
end; 


بالتوفيق.