Problem beim Beschreiben von MaskEdits

[Helmi]

Hallo,

ich hab ein problem mit dem MaskEdit

Ich habe ein MaskEdit folgender Einstellung:

Code:

MaskEdit.EditMask := '!#999,999;1;0';

im Create wird mein MaskEdit beschrieben:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Eingabefeld vordefinieren
  MaskEdit.EditText      := FloatToStr(0.011);
end;

Das funktioniert ganz gut.

In dem OnClick-Event mach ich folgendes:

Code:

procedure TForm1.MaskAlignEdit_FLK_Click(Sender: TObject);
begin
  with Sender as TMaskEdit do
    selectall;
end;

Wenn ich also jetzt in dem markiertem MaskEdit was eingebe dann hab ich kein Komma mehr.

Wie kann ich das verhindern?

mfg
Helmi

[omata]

Moin,

indem du bei der Vorbelegung im OnCreate-Ereignis nicht EditText sondern Text nimmst.

MfG
Thorsten