+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحكم في التنقل بين TabSheet الخاصة بـ PageControl (/showthread.php?tid=2994)
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - abdelmalek - 11-04-2011
السلام عليكم ورحمة الله وبركاته
عندي فورم تحتوي على PageControl بها ثلاثة TabSheet .
كيف يمكنني منع المستخدم من التنقل بين لـ TabSheets إلا اذا قام بـ الضغط على button معين .
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - TF6M - 11-04-2011
السلام عليكم
- في الحدث OnChange
PHP كود :
procedure TForm1.PageControl1Change(Sender: TObject);
begin
PageControl1.ActivePage:= TabSheet1;
end;
PHP كود :
PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex + 1;
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - abdelmalek - 11-04-2011
بارك الله فيك اخي الحبيب TF6M على التواصل
اضن ان مشكلة غير واضحة ساقوم بتوضيحها اكثر
عندما يشغل المستخدم البرنامج تكون له الحرية في التنقل بين TabSheet .
في حالة ماذا ذخل المستخدم على TabSheet وغيرا في Edit مثلا يمنع من التنقل الى TabSheet الاخرى
الا ادا ضغط على button apply في هاته الحالة يمكنه التنقل الى ايي TabSheet اخر
اضن ان المشكلة اتضحة نوعنا ما .
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - kachwahed - 11-04-2011
وعليكم السلام ورحمة الله وبركاته
جرب:
PHP كود :
PageControl1.SelectNextPage(True);
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - abdelmalek - 11-04-2011
بارك الله فيكم على المجهود الجبار
المشكلة لم تحل بعد .لتوضيح اكثر :
- عندي برامج يحتوي على فورم به PageControl بها ثلاثة TabSheet .
TabSheet1 : تحتوي على edit1 و button1
TabSheet2 : تحتوي على edit2 و button2
TabSheet3 : تحتوي على edit3 و button3
عندا تشغيل البرنامج في المرة الاولى يستطيع المستخدم التنقل بين لـ TabSheets بضغط على ايي واحدة
لنفرض ان المستخدم اختارى TabSheet1 ، وقاما بالتعديل على edit1 في هاته الحالة يمنع المستخدم
من التنقل الى TabSheet2 و TabSheet3 حتى يضغط على button1 التي بضورها تعيد الصلاحية
للمستخدم بان يتنقل الى ايي TabSheet.ليس المقصود عند الضغط على button1 يتم التنقل الى TabSheet .
التحكم في التنقل بين TabSheet الخاصة بـ PageControl - kachwahed - 11-04-2011
إضبط AllowChange من الحدث OnChanging لـ TPageControl بما يناسبك
PHP كود :
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
AllowChange := Edit1.Text = '';
end;