25-05-2015, 10:40 PM
تعديل فقط
كود :
if Edit1.Color = clBlue then
if Edit2.Color = clBlue then
if Edit3.Color = clBlue then
if Edit4.Color = clBlue then
begin
Label1.Caption:='OK';
Label1.Font.Color := clGreen;
end
else
begin
Label1.Caption:='NO';
Label1.Font.Color := clRed;
end;end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Color:=clBlue;
Edit2.Color:=clBlue;
Edit3.Color:=clBlue;
Edit4.Color:=clBlue;
end;
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم