Procedure

TfrmConsultsByDate.calBeginDateKeyPress

Module

fConsultBD

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsultsByDate

Declaration

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

Calls Hierarchy


TfrmConsultsByDate.calBeginDateKeyPress
 └TfrmConsultsByDate.cmdOKClick
   └StrToFMDateTime

Calls

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


Source

116   procedure TfrmConsultsByDate.calBeginDateKeyPress(Sender: TObject;
117     var Key: Char);
118   begin
119     if (Key = #13) then cmdOKClick(Self);
120   end;