---------------------------------------------------------------------------
| 15 | } |
| 16 | //--------------------------------------------------------------------------- |
| 17 | void __fastcall TMessageForm::FormKeyDown(TObject *Sender, WORD &Key, |
| 18 | TShiftState Shift) |
| 19 | { |
| 20 | if( Key==VK_RETURN || Key==VK_ESCAPE ) |
| 21 | CloseButtonClick(Sender); |
| 22 | } |
| 23 | //--------------------------------------------------------------------------- |
| 24 | void __fastcall TMessageForm::CloseButtonClick(TObject *Sender) |
| 25 | { |
nothing calls this directly
no outgoing calls
no test coverage detected