diff options
| author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 22:02:41 +0000 |
|---|---|---|
| committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 22:02:41 +0000 |
| commit | a015704448d74b4da577658a498e2a776d117851 (patch) | |
| tree | 1d4da95a223d4633d9e5f265e8351d6ad5acfc93 /prototypes | |
| parent | 81524e9b9ca043909ec2a65a2b5624395d851bd8 (diff) | |
| download | fpGUI-a015704448d74b4da577658a498e2a776d117851.tar.xz | |
Fixed events example
Diffstat (limited to 'prototypes')
| -rw-r--r-- | prototypes/newmultihandle/gui_edit.inc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/prototypes/newmultihandle/gui_edit.inc b/prototypes/newmultihandle/gui_edit.inc index 3e3deb56..7c1296c8 100644 --- a/prototypes/newmultihandle/gui_edit.inc +++ b/prototypes/newmultihandle/gui_edit.inc @@ -59,11 +59,15 @@ end; procedure TFEdit.EvKeyPressed(AKey: Word);
begin
+ WriteLn('KeyPressed');
+
inherited EvKeyPressed(AKey);
end;
procedure TFEdit.EvKeyReleased(AKey: Word);
begin
+ WriteLn('KeyReleased');
+
inherited EvKeyReleased(AKey);
end;
|