Solved

looking for Time Picker

Posted on 2004-09-17
8
427 Views
Last Modified: 2010-05-18
Hi

I am looking for a Time Picker Control (not datetime) where I can specify the minimum and maximum times that can be selected.

Any ideas?

Voodooman
0
Comment
Question by:Voodooman
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 17

Assisted Solution

by:mokule
mokule earned 25 total points
ID: 12088329

What about TDateTimePicker set Kind to dtkTime and use OnChange event.
0
 
LVL 23

Accepted Solution

by:
Ferruccio Accalai earned 25 total points
ID: 12088513
yeah mokule, was suggesting the same :)
....here an example:

procedure TForm1.FormCreate(Sender: TObject);
begin
datetimepicker1.Kind :=  dtkTime;
datetimepicker1.DateTime := strtotime('10.00.00');
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
if (datetimepicker1.Time > strtoTime('22.00.00')) or
   (datetimepicker1.Time < strtotime('10.00.00')) then begin
      Showmessage('Time must be between 10.00.00 and 22.00.00');
      datetimepicker1.Time := strtotime('10.00.00');
   end;
end;

F68 ;-)
0
 
LVL 5

Author Comment

by:Voodooman
ID: 12088842
Hi

Sorry guys its not what I'm looking to do.

I could do this when I validate the data on the form.

When I load the popup, I want to prevent the users from selecting outside the limits of the day (that I set).

I don't want to work around it - this is a very nice high end piece of softare - hence I need to deal with the problem - not work around it!

Thanks

Voodooman
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 23

Expert Comment

by:Ferruccio Accalai
ID: 12088969
--> When I load the popup
I first place you just said '...where I can specify the minimum and maximum times that can be selected...'

Maybe if you give more info about your needs we can suggest something more than a 'workaround', but for what is knowed until now mokule suggestion is an answer, not just a workaround....

What do you mean with 'when i load the popup'? what is the situation?

F68 ;-)
0
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 12090841
Hello

Do you mean you want to prevent the user to choose date out of the range you woud like to set?

if so then use MinDate and MaxDate to set the range for the TDateTimePicker

uses
  DateUtils ;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.MinDate := IncDay(Date,-5);
  DateTimePicker1.MaxDate := Date;
end;
0
 
LVL 5

Author Comment

by:Voodooman
ID: 12091102

Firstly - apologies if anyone thought I was being unappreciative of the answers - this is not the case.  I try to help with answers, and I have been on EE for 5 years - mostly in the VB area - where I have answered hundreds of questions and hopefully helped some people.

F68 - I was quite clear in what I asked for - its a time picker where I can select the maximum and minimum times that a user can select.

The popup is a modal form where the user edits appointments.  The appointments must only be possible within the working day.

When I save the record I can easily tell the user that the time the user has selected is outside of the day.

If I wanted to do that I would do it.  The professional approach is to prevent the user making the mistake in the first place.

I would like a control like Lotus Organiser (if you havent seen it you wouldnt know what I mean) - lathough any control that limited the day (e.g. 08:00 - 17:00) would do.

Lotus use a drop down slider to adjust the time - it is fast and efficient and is limited to the extent of the day setup.

I was hoping that one of the experts may have seen such a control - bearing in mind the large number of excellent controls that there are for Delphi - surely one of the main reasons for using Delphi.

Voodooman
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 12091110
1) As Mocule said, adjust it to Kind of dtkTime and you will be able to change only time. Then using methods ReplaceDate and ReplaceTime you can make the DateTime you need.

2) http://www.torry.net/pages.php?id=297
0
 
LVL 5

Author Comment

by:Voodooman
ID: 12091280
Hi

I have found a control that works for me - TADVSpinEdit from http://www.TMSSoftware.com.  Luckily I have bought this already as part of a package (I think it is also on the Delphi7 Companion CD).

This spin edits the time.

With this, the user cannot type into the box - they can only increment the time up and down with the spin button.

This has the advantage that the user can see when they have reached the top or bottom of the limit - without having to be told with a message box.

Using a simple bit of code under the change event the time spins only with the limits.

if strtotime(spintime.Text)<strtotime('10:00') then
        spintime.Text:='10:00';

     if strtotime(spintime.Text)>strtotime('17:00') then
        spintime.Text:='17:00';

By doing this I can make sure that users cannot set appointments out of the day without nagging them.  It also allows different ranges to be used on different days (e.g. Half Day on Saturday).

I will split the points between Mokule and F68 - thanks for the idea, and thanks all for the help!

Voodoman
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Suggested Courses
Course of the Month5 days, 19 hours left to enroll

627 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question