Procedure

TfrmODLabImmedColl.calImmedCollectKeyUp

Module

fODLabImmedColl

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLabImmedColl

Declaration

procedure calImmedCollectKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Calls Hierarchy


TfrmODLabImmedColl.calImmedCollectKeyUp
 └TfrmODLabImmedColl.cmdCancelClick

Calls

Name Declaration Comments
TfrmODLabImmedColl.cmdCancelClick procedure cmdCancelClick(Sender: TObject); -


Source

104   procedure TfrmODLabImmedColl.calImmedCollectKeyUp(Sender: TObject;
105     var Key: Word; Shift: TShiftState);
106   begin
107     if Key = VK_ESCAPE then
108     begin
109       Key := 0;
110       cmdCancelClick(cmdCancel);
111     end;
112   end;