Focus to DateTimePicker Component on Hour,Minute or Second part of Component

				
!**************************************
! Name: Focus to DateTimePicker Component on Hour,Minute or Second part of Component
! Description:supporting for Quick Data Entry Process
! By: Panji Mantra
!
!This code is copyrighted and has! limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2096&lngWId=7!for details.!**************************************

// hope this code helping you
Procedure DTPFocusManage(var DTToFocus :TDateTimePicker;FocusNum :Byte);
var
 temp:string; Index :Byte;
begin
 temp:=DTToFocus.Format;
 DTToFocus.Format:='hh';
 DTToFocus.SetFocus;
 DTToFocus.Format:=temp;
 case FocusNum of
 1 : exit;
 2 : begin
 For Index:=1 to 1 do
 PostMessage(DTToFocus.Handle,WM_KEYDOWN,VK_RIGHT,0);
end;
 3 : begin
 For Index:=1 to 2 do
 PostMessage(DTToFocus.Handle,WM_KEYDOWN,VK_RIGHT,0);
end;
 end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 //For example on EditBoxKeyPress Event
 //Focus Number :
 //1 = Focused to Hour
 //2 = Focused to Minute
 //3 = Focused to Second
 DTPFocusManage(Form1.DateTimePicker1,2); //this action will set focus on Minute part of TDateTimePicker Component Object 
end;