السلام عليكم اردت صنع دليل الهاتفي الخاص بالولايات ووضعت combobox و label1 وهذا هو الكود
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.text='adrar' then
begin
Label1.caption:=('049 36 46 40/049 36 46 ');
end
else if ComboBox1.text='chlef' then
begin
Label1.Caption:= ('027 77 24 00');
end;
end;
end.


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)