PDA

View Full Version : اجرای یک روال در TTabbedNotebook


www2006
سه شنبه 07 آذر 1385, 21:55 عصر
سلام

من در یک کامپوننت TabbedNotebook1 ، برای یک تب خاص میخواهم کد بنویسم ... کد را باید کجا وارد کنم تا با انتخاب آن تب ،کد اجرا شود ؟؟
MNosouhi
سه شنبه 07 آذر 1385, 22:55 عصر
در رویداد OnChange
مثال:



procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
case NewTab of
0://Yourcode..
1://Yourcode..
end;//of case
end;
www2006
سه شنبه 07 آذر 1385, 23:22 عصر
در رویداد OnChange



در آنصورت هنگام کلیک کردن روی تمام تبها ، کد مورد نظر اجرا میشود ....
مشکل این است که میخواهم فقط با کلیک روی (مثلا) سومین تب آن کد اجرا شود ..
محمد دادودنیا
چهارشنبه 08 آذر 1385, 04:40 صبح
TabbedNotebook1.PageIndex نشون می ده که کدوم Tab فعاله
MNosouhi
چهارشنبه 08 آذر 1385, 10:38 صبح
در
آنصورت هنگام کلیک کردن روی تمام تبها ، کد مورد نظر اجرا میشود ....
مشکل این است که میخواهم فقط با کلیک روی (مثلا) سومین تب آن کد اجرا شود ..
به کدی که براتون نوشتم بیشتر دقت کنید .شما باید در قسمتی که عبارت YourCode را گذاشته ام کد مورد نظرتون رو بنویسید.
در ضمن پیشنهاد میکنم به جای TabbedNotebook از PageControl استفاده کنید ، راحتتر می تونید باهاش کار کنید .