طريقة تحديد عنصر من ListBox و ComboBox و RadioGroup و GroupBox
صفحة 1 من اصل 1
طريقة تحديد عنصر من ListBox و ComboBox و RadioGroup و GroupBox
طريقة تحديد عنصر من ListBox و ComboBox و RadioGroup و GroupBox
تحديد عنصر من قائمة ListBox1
تحديد عنصر من قائمة ComboBox1
تحديد عنصر من قائمة RadioGroup1
تحديد عنصر من قائمة GroupBox1
- الكود:
procedure showAffiche(s:string);
begin
ShowMessage(s);
end;
تحديد عنصر من قائمة ListBox1
- الكود:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
showAffiche(ListBox1.Name+' selected element '+ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;
تحديد عنصر من قائمة ComboBox1
- الكود:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
showAffiche(ComboBox1.Name+' selected element '+ComboBox1.Items.Strings[ComboBox1.ItemIndex]);
end;
تحديد عنصر من قائمة RadioGroup1
- الكود:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
showAffiche(RadioGroup1.Name+' selected element '+RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]);
end;
تحديد عنصر من قائمة GroupBox1
- الكود:
procedure TForm1.GroupBox1Click(Sender: TObject);
begin
if sender = RadioButton1 then
showAffiche(' selected '+RadioButton1.Name)
else if sender = RadioButton2 then
showAffiche(' selected '+RadioButton2.Name)
else if sender = RadioButton3 then
showAffiche(' selected '+RadioButton3.Name);
end;
abas- مبرمج
- عدد المساهمات : 62
تاريخ التسجيل : 06/06/2015
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى