Hallo,
bei einem TEDIT Feld wird im OnKeyPressEvent die Gütigkeit der Eingabe überprüft.
Nun möchte ich die PrüfRoutine in eine DLL auslagern.
Der Compiler meldet sich mit
"Inkompatiple Typen Methodenzeiger und Reguläre Prozedur"
Hat jemand eine Tip ?
Danke
Jörg Nissen
DLL
procedure validInteger( Sender : TObject; var key : char );
begin
if key = #13 then key := 'ö';
end;
exports
validInteger;
begin
end.
HauptProgramm
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.OnKeyPress := ValidInteger;
end;
bei einem TEDIT Feld wird im OnKeyPressEvent die Gütigkeit der Eingabe überprüft.
Nun möchte ich die PrüfRoutine in eine DLL auslagern.
Der Compiler meldet sich mit
"Inkompatiple Typen Methodenzeiger und Reguläre Prozedur"
Hat jemand eine Tip ?
Danke
Jörg Nissen
DLL
procedure validInteger( Sender : TObject; var key : char );
begin
if key = #13 then key := 'ö';
end;
exports
validInteger;
begin
end.
HauptProgramm
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.OnKeyPress := ValidInteger;
end;