مشكلة مع Combobox

[kachwahed]

كود :

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;

هناك إضافة (Plugin) تجعل من ذلك وغيره ممكنا في دلفي:

كود :

http://andy.jgknet.de/dlang/

التحميل:

كود :

http://andy.jgknet.de/dlang/builds/DLangExtensions2008-11-23-1958.zip

لا أنصح بالاعتماد عليها.
بالتوفيق.