15-07-2010, 11:14 PM
السلام عليكم ورحمة الله
بالطريقة التي كتبت بها الاوامر دائما يتم تغيير اللون الى الاحمر
كحل سريع، غير
الى
من الاحسن الا تستعمل Goto (حاول التفكير دونها)
يمكن ان تكتب الكود بشيئ مثل
وبالتوفيق
بالطريقة التي كتبت بها الاوامر دائما يتم تغيير اللون الى الاحمر
كحل سريع، غير
كود :
begin
form1.color:=clyellow;
end;كود :
begin
form1.color:=clyellow;
exit;
end;من الاحسن الا تستعمل Goto (حاول التفكير دونها)
يمكن ان تكتب الكود بشيئ مثل
كود :
procedure TForm1.Combo01Change(Sender: TObject);
begin
if combo01.ItemIndex=1 then form1.color:=clyellow;
if combo01.itemindex=0 then form1.color:=clred;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ