18-07-2010, 05:31 PM
السلام عليكم
خطأ فني ->قم مسح الكمبو 3 فقط
يصبح الكود
خطأ فني ->قم مسح الكمبو 3 فقط
يصبح الكود
كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox3.Items.Clear ;
case ComboBox1.ItemIndex of
0:begin // البلد1
ComboBox2.Items.Clear ;
ComboBox2.Items.AddStrings(state1);
end;
1: begin // البلد2
ComboBox2.Items.Clear ;
ComboBox2.Items.AddStrings(state2);
end;
else ComboBox2.Items.Clear ;
end;
end;