Yanlış ise font rengi değişsin

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Dostk
Üye
Mesajlar: 144
Kayıt: 22 Ağu 2015 12:21

Yanlış ise font rengi değişsin

Mesaj gönderen Dostk »

Selam.

function kullanarak 3 farklı edit'deki time formatını doğruysa siyah yanlış ise font rengini kırmızı yaparak kullanıcıya bilgilendirmek istiyorum;
Fakat tek bir function ile hangi 3 edit'den biri time yanlış girilmişse o edit'in fontunu nasıl kırmız yaptırabilirim?

Kod: Tümünü seç

function TMainForm.TimeKontrol(Const StrSure: String): String;
begin
  Kontrol := Edit1.Text;
  if (Length(Kontrol) = 8) and (Copy(Kontrol, 3, 1) = ':') and   (Copy(Kontrol, 6, 1) = ':') and (StrToTimeDef(Kontrol, Now) <> (Now)) then
  begin
    Edit1.Font.Color := $000000;
  end
  else
  begin
    Edit1.Font.Color := $0000FF;
  end;
end;
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: Yanlış ise font rengi değişsin

Mesaj gönderen ertank »

Merhaba,

Birkaç farklı yöntem izlenilebilir. Aklıma ilk gelen yöntem ekteki örnek uygulama içinde bulabilirsiniz. Form üzerinde kontrol etmek istediğiniz Edit alanlarının Tag parametrelerini 1 yapmanız gerekmektedir.
Dosya ekleri
editcheck.rar
(1.26 KiB) 57 kere indirildi
Kullanıcı avatarı
Dostk
Üye
Mesajlar: 144
Kayıt: 22 Ağu 2015 12:21

Re: Yanlış ise font rengi değişsin

Mesaj gönderen Dostk »

Cevapla