Procedure

TfrmConsultsByDate.calEndDateKeyPress

Module

fConsultBD

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsultsByDate

Declaration

procedure calEndDateKeyPress(Sender: TObject; var Key: Char);

Calls Hierarchy


TfrmConsultsByDate.calEndDateKeyPress
 └TfrmConsultsByDate.cmdOKClick
   └StrToFMDateTime

Calls

Name Declaration Comments
TfrmConsultsByDate.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

122   procedure TfrmConsultsByDate.calEndDateKeyPress(Sender: TObject;
123     var Key: Char);
124   begin
125     if (Key = #13) then cmdOKClick(Self);
126   end;