15-07-2010, 10:59 PM
لماذا يعمل هذا الكود علي اللون الاحمر فقط
كود :
procedure TForm1.Combo01Change(Sender: TObject);
label sss1;
label sss2;
begin
if combo01.ItemIndex=1 then goto sss2;
if combo01.itemindex=0 then goto sss1;
sss1:
begin
form1.color:=clyellow;
end;
sss2:
begin
form1.color:=clred;
end;
end;