دخول

**kachwahed** · 25-11-2009, 02:57 PM

إقتباس :يعني لكل كلمة في المكون رابط كيف يمكنني ذلك اخي

لكل مكون يحتوي TStringList في خصائصه (مثل TListBox، TTreeView، TComboBox.....) يمكنه أن يأخذ عبارة نصية (string) ومكون TObject (بالأحرى مؤشر)، مثال لتخزين الصفحة عند كل عنصر من TComboBox.Items:
ضع في مشروع جديد TCombBox و TPageControl وأنشئ فيه ثلاث صفحات (انقر باليمين ثم Add Page...)
الآن أكتب في OnCreate للنموذج:

كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.AddObject('Page1', PageControl1.Pages[0]);
  ComboBox1.Items.AddObject('Page2', PageControl1.Pages[1]);
  ComboBox1.Items.AddObject('Page2', PageControl1.Pages[2]);
end;

ثم في OnChange لـ TComboBox:

كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  PageControl1.ActivePage := (ComboBox1.Items.Objects[ComboBox1.ItemIndex] as TTabSheet);
end;

أخي delphi555 ضع هذا الموقع ضمن مواقعك المفضلة Smile

:

كود :
http://www.delphibasics.co.uk/

بالتوفيق.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة