Příklad handleru
TYPE TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object; ~~~~~ procedure TForm1.Edit1KeyPressed(Sender: TObject; var Key: Char); begin Key := UpCase(Key); end
TYPE
TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object;
~~~~~
procedure TForm1.Edit1KeyPressed(Sender: TObject; var Key: Char);
begin
Key := UpCase(Key);
end