Einzelnen Beitrag anzeigen

Teekeks

Registriert seit: 19. Okt 2008
Ort: Dresden
765 Beiträge
 
FreePascal / Lazarus
 
#1

DoKeyPress überschreiben...

  Alt 16. Mai 2009, 20:38
Hallo!
Ich Leite momentan eine Klasse von TCustomEdit ab und hab volgendes problem:
Ich würde gerne die function DoKeyPress überschreiben, das geht aber leider wie ich festgestellthabe nicht.
Das hier hab ich:
Delphi-Quellcode:
    function DoKeyPress(Var Message : TLMKey): Boolean; override;
{...}
function TMyDatumEdit.DoKeyPress(var Message: TLMKey): Boolean;
begin
  if not IsAlowed(char(Message.CharCode)) then exit;
  inherited;
end;
Was muss ich ändern?

gruß Teekeks

ps: es tut mir leid das ich euch so oft nerve, soll aber was für meinen Vater proggen und hab gerade Zeit...
Peter
"Div by zero Error" oder auch: "Es geht auch ohne Signatur!".
  Mit Zitat antworten Zitat