Komponentenentwicklung

[sakura]

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)