Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Editin tepki vermemesi
#1
Selam.

Edite parasal değer girildiğinde şartlar eşit olduğunda otomatik olarak noktalama işlemlerini yaptırmak istiyorum; Fakat VCL de olduğu gibi Firemonkey de bu kadar kolay olmuyor maalesef.

Change ve ChangeTracking ve bir çok yöntem denedim fakat istediğim sonucu alamadım edit işlem yapılıyorsa o edit hiçbir şekilde color dahil değişikliği izin vermiyor, bunun için ne yapabilirim?

function TForm2.NoktalamaEkle(StrNoktalama: String): String;
var
  Birler, Onlar: String;
begin
  if Length(StrNoktalama) = 4 then
  begin
    Birler := Copy(StrNoktalama, 1, 1);
    Onlar := Copy(StrNoktalama, 2, 4);
    Form2.Caption := Birler + '.' + Onlar; // Caption sorun yok işlem yapılıyor.
    Result := Birler + '.' + Onlar;
  end;
end;


procedure TForm2.EditAlisChange(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;


procedure TForm2.EditAlisChangeTracking(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;
Cevapla
#2
NoktalamaEkle fonksiyonunuz String değer döndürüyor ama siz bu değeri kullanmıyorsunuz. Hiç bir yere bu değeri atamıyorsunuz.
EditAlis.Text := NoktalamaEkle(EditAlis.Text);
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi