Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bfr,
25. Jan 2006
jetzt habe ich mit dieser Prozedur geprüft ob ein nichtausgefülltes Zeichen in der Maske ist:
procedure TfrmMain.laengepruefen(Sender: TObject);
var i : integer;
begin
if pos(' ',txtgeburtstag.Text) <> 0
then Showmessage('Alle _ ersetzen!');
end;
Aber wenn ich dieese Prozedur auf das Event OnChange lege dann zeigt er jedes mal die nachricht das noch nihct alle _ ersetzt sind. und...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bfr,
24. Jan 2006
ich bin noch anfänger auf delphi und kenne deshalb noch nicht soviele befehle. Mit OnExit(wird doch aktiv wenn die Maske verlassen wird oder?) habe ich gerade ausprobiert aber es hat nicht geholfen. Wenn ich einen BreakPoint auf das Begin der Prozedur setzte wird dieser nicht erreicht vor der Fehlermeldung. Wenn ich OnChange benutzte prüft er bei jedem eintippen einer Zahl ob die Länge stimmt...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bfr,
24. Jan 2006
hallo @ all
ich habe ein Problem mit einer Maske die folgende editmask Eigenschaft hat: !90/90/0000;1;_
sie soll für ein Datum im Format TT.MM.JJJJ sein. Wenn ich im Program in der maske jedoch mindestens einen unterstrich _ nicht durch eine Zahl ersetzte und die Maske durch Drücken von Enter Tabulator oder mit einem Mausklick verlasse gibt es eine Fehlermeldung mit dem Text:
Project...