> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Chris Reynolds
> Sent: Tuesday, 14 September 1999 12:08
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Formatting time for TDBEdit control
>
>
>
> Sorry Patrick, try 2.
>
> Something like
> text := formatdatetime('HH:MM',sender.AsDateTime)
> in your gettext event of the ttimefield.
Here is the code that I evolved for setting the format at editing:
procedure TDataMod.CommonTimeFieldGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
var t:TDateTime;
begin
if(not(Sender.IsNull))
then
begin
t:=Sender.AsDateTime;
Text:=FormatDateTime('h:nn',t);
end
else Text:='';
DisplayText:=false;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
