Have you tried the TDateTimeSuite from adrock.com
Patrick Anthony Associates Ltd PO Box 31-831, Milford Auckland, New Zealand IMPORTANT - The information contained in this email is CONFIDENTIAL. It is intended for the person to whom it is addressed only. If you are not that person or his/her authorised agent please be aware that any use, dissemination, distribution or reproduction of this email is prohibited. If you have received this in error please notify us immediately by return email or telephone 64 9 486 5020 and delete your copy of the email and any attachments. Thank you. From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of John Bird Sent: Friday, 5 February 2010 13:53 To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] hour / minute component Incidentally I have taken to doing something similar with date entry. An edit box, but in this case I put a little arrow button at the end of it, and clicking that superimposes a date picker over the edit box. Its rather more work but it works really neatly, and can be easily repeated. Date entry is flexible, as a string today could be 5-feb-10 5.2.10 5.2.2010 5/2/10 on exit the date is verified, and the date picker if clicked populates the text field with the first format above. Entering dates like this is very flexible, caters for those who like to use the keyboard and those who like to use the mouse. Using the date picker is especially cool under Vista/Windows 7 as the newer Date picker is really really nice - anyone else noticed that? Means doing something like: (DateTimePicker is normally invisible) procedure Tform1.btnStartDateClick(Sender: TObject); begin DateTimePicker1.left:=edtStartDate.Left; DateTimePicker1.top:=edtStartDate.Top; DateTimePicker1.width:=edtStartDate.width+btnStartDate.Width; DateTimePicker1.Date:=xfAdateToDTDate(edtStartDate.Text); DateTimePicker1.Visible:=true; PickStartOrFin:=1; DateTimePicker1.Perform(WM_SYSKEYDOWN, VK_DOWN, 0); end; //this code handles two separate edit boxes procedure Tform1.DateTimePicker1CloseUp(Sender: TObject); begin if PickStartOrFin=1 then edtStartDate.Text:=xfdtDateToAdate(DateTimePicker1.Date); if PickStartOrFin=2 then edtFinDate.Text:=xfdtDateToAdate(DateTimePicker1.Date); DateTimePicker1.Visible:=false; //redisplay data to reflect new date Redisplay data; end; (the xfDTDatetoADate and xfADatetoDTDate are my library routines to convert between string dates and TDateTime) John No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2667 - Release Date: 02/05/10 08:35:00
_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
