كيف أترجم هذا الى لغة برمجة
إذا كان خلفية لون edit5 و edit4 و edit3 و edit2 و edit1 أزرق
أكتب باللون الاخضر label 'صحيح '
والا اكتب
label باللون الاحمر 'خطأ'
يجب تحقق الشرط بلون خلفيات جميع اديت الى الازرق
ادا كانت لون اديت واحد غير الازرق لا يتحقق الشرط خطا
محاولتي ....
كود :
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;
السلام عليكم
يمكنك ذلك اذا واجهك اي اشكال اطرح سآلك لكن قبل ذلك ابحث في المنتدى
الطريقة 1
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsAllEditsBlue then
begin
Label1.Caption := 'Ok';
Label1.Font.Color := clGreen;
end else
begin
Label1.Caption :='NO';
Label1.Font.Color := clRed;
end;
end;
function TForm1.IsAllEditsBlue;
begin
Result := True;
if not(Edit1.Color = clBlue) then
begin
Result := False;
Exit;
end;
if not(Edit2.Color = clBlue) then
begin
Result := False;
Exit;
end;
if not(Edit3.Color = clBlue) then
begin
Result := False;
Exit;
end;
if not(Edit4.Color = clBlue) then
begin
Result := False;
Exit;
end;
if not(Edit5.Color = clBlue) then
begin
Result := False;
Exit;
end;
end;
الطريقة 2
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsAllEditsBlue then
begin
Label1.Caption := 'Ok';
Label1.Font.Color := clGreen;
end else
begin
Label1.Caption :='NO';
Label1.Font.Color := clRed;
end;
end;
function TForm1.IsAllEditsBlue;
var
I: Integer;
begin
Result := True;
for I := 0 to ControlCount - 1 do
if (Controls[I] is TEdit) then
if not (TEdit(Controls[I]).Color = clBlue) then
begin
Result := False;
Exit;
end;
end;
آسف ... لقد حذفت الاجابة.
لم أنتبه لاجابة الأخ فاتح.
شكرا لكم جميعا
تم الحل تحياتي ..
بعد إذن أخي S.FATEH
إستعمال and لتفادي تحقق من كل مكون لحاله
كود :
if (Edit1.Color = clBlue) and
(Edit2.Color = clBlue) and
(Edit3.Color = clBlue) and
(Edit4.Color = clBlue) and
(Edit5.Color = clBlue) then
Label1.Font.Color := clGreen
else
Label1.Font.Color := clRed;