25-11-2009, 11:13 AM
25-11-2009, 11:37 AM
25-11-2009, 11:51 AM
25-11-2009, 01:44 PM
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;كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
PageControl1.ActivePage := (ComboBox1.Items.Objects[ComboBox1.ItemIndex] as TTabSheet);
end;
:كود :
http://www.delphibasics.co.uk/25-11-2009, 07:30 PM