Procedure

TfrmODMedIV.cboTypeKeyDown

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

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

Calls Hierarchy


TfrmODMedIV.cboTypeKeyDown
 ├TfrmODMedIV.IsAltCtrl_L_Pressed
 └TfrmODMedIV.lblTypeHelpClick
   └TfrmODMedIV.IVTypeHelpText

Calls

Name Declaration Comments
TfrmODMedIV.IsAltCtrl_L_Pressed function IsAltCtrl_L_Pressed(Shift : TShiftState; Key : Word) : Boolean; -
TfrmODMedIV.lblTypeHelpClick procedure lblTypeHelpClick(Sender: TObject); -


Source

1236  procedure TfrmODMedIV.cboTypeKeyDown(Sender: TObject; var Key: Word;
1237    Shift: TShiftState);
1238  begin
1239    inherited;
1240    if IsAltCtrl_L_Pressed(Shift, Key) then
1241      lblTypeHelpClick(lblTypeHelp);
1242  end;