+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة مع Combobox (/showthread.php?tid=2249)
مشكلة مع Combobox - abdelmalek - 02-08-2010
السلام عليكم ورحمة الله وبركاته
لقد واجهتني مشكلة مع ComboBox وهي :
انشائة مشروع جديد و وضعة عليه Combobox و Button1 و قمة بملئ Combobox ببعض الاسماء و اردت من هدا البرنامج عندا اختيار المستخدم اسم ويضغط على الزر تظهر له رسالة تعلمه مادا اختار وهدا الكود
الدي وضعته في الزر :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.Text of
'Ahmad' : ShowMessage('Ahmad');
'Yacine': ShowMessage('Yacine');
'Mohemmad' : ShowMessage('Mohemmad');
'Djamel' : ShowMessage('Djamel');
'Lotfi': ShowMessage('Lotfi');
end;
end;
ولكنه يظهر لي رسالة خطاء فماهو الحل ؟
التجربة في المرفق
بتوفيق للجميع
مشكلة مع Combobox - محمد عبد العزيز - 02-08-2010
السلام عليكم ورحمة الله
هذا من الاساسيات
الاسماء تكون بجدول items
الاسم المختار رقمه يكون بItemIndex
يمكن ان تكتب شيئ مثل
كود :
if ComboBox1.ItemIndex>-1 then ShowMessage(ComboBox1.Items[ComboBox1.ItemIndex]);مشكلة مع Combobox - TF6M - 02-08-2010
و عليكم السلام و رحمة الله و بركاته
- راجع طريقة كتابة الحلقات :
PHP كود :
Uses
StrUtils;
procedure TForm1.btn1Click(Sender: TObject);
begin
case AnsiIndexStr(cbb1.Text,['Ahmad', 'Yacine','Mohemmad']) of
-1: ShowMessage('!!!');
0: ShowMessage('Ahmad');
1: ShowMessage('Yacine');
2: ShowMessage('Mohemmad');
//Else...
end;
end;
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
const
NamArr: array [0..2] Of string = ('Ahmad', 'Yacine','Mohemmad');
begin
case cbb1.ItemIndex of
-1: ShowMessage('!!!');
0..2: ShowMessage(NamArr[cbb1.ItemIndex]);
//Else...
end;
end;
مشكلة مع Combobox - kachwahed - 02-08-2010
إقتباس :هناك إضافة (Plugin) تجعل من ذلك وغيره ممكنا في دلفي:كود :procedure TForm1.Button1Click(Sender: TObject); begin case ComboBox1.Text of 'Ahmad' : ShowMessage('Ahmad'); 'Yacine': ShowMessage('Yacine'); 'Mohemmad' : ShowMessage('Mohemmad'); 'Djamel' : ShowMessage('Djamel'); 'Lotfi': ShowMessage('Lotfi'); end; end;
كود :
http://andy.jgknet.de/dlang/كود :
http://andy.jgknet.de/dlang/builds/DLangExtensions2008-11-23-1958.zipبالتوفيق.
مشكلة مع Combobox - abdelmalek - 02-08-2010
بارك الله فيكم الله ينوركم إخواني الكرام على الردود و الحلول المتنوعة شكرا من قلبي ......
لقد قمت بتصحيح الكود وهو الان يعمل جيدا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
-1: ShowMessage('Ahmad');
0: ShowMessage('Yacine');
1: ShowMessage('Djamel');
2: ShowMessage('Mohemmad');
3: ShowMessage('Lotfi');
end;
end;
بتوفيق للجميع