|
Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
Delphi 11 Alexandria
|
12. Jun 2002, 08:32
Hi,
ich hatte gestern keine Zeit mehr noch was zum Code zu schreiben, aber ich will jetzt noch ein, zwei Worte dazu loswerden.
Ich habe genau wie Du damit angefangen, die AdvancedEdit Box von der Standard Edit Box abzuleiten. Anschließend habe ich einen neuen Nachrichten Handler (WM: Windows Message) eingesetzt.
procedure WMChar(var Msg: TWMChar); message WM_CHAR;
Die Nachrichten vom Typ WM_CHAR werden automatisch an diesen Handler gesandt, bevor diese verarbeitet werden. In der Prozedur teste ich, ob der gesandte Wert im Bereich '0'..'9' liegt.
if ((Msg.CharCode >= $30) and (Msg.CharCode <= $39)) then
Wenn dieses der Fall ist, dann rufe ich den Standard WM_CHAR Message Handler auf, damit die Zeichenfolge auch an das Editfeld gesandt wird.
inherited
Bei anderen Tasten teile ich Windows mit, sich die Nachricht zu "verkneifen"
Msg.Result := -1;
Ich hoffe, dass Dir das ein wenig weiterhilft. 8)
Daniel W.
Ich bin nicht zurück, ich tue nur so
|