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?
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;