Como abrir o calendario do DateTimePicker

Delphi

13/06/2006

Olá,

Como eu faço pra abrir o calendario do DateTimePicker no evento clique de um botão qq do meu form?

Desde ja agradeço.

Renato


Renato.pavan

Renato.pavan

Curtidas 0

Respostas

Renato.pavan

Renato.pavan

13/06/2006

Up


GOSTEI 0
Adriano Santos

Adriano Santos

13/06/2006

Cara, fiz mó gambis aki. Se alguém souber algo melhor, postai.
No evento onEnter do DateTimePicker vc simula o pressionamento das teclas Alt + Seta_Pra_Baixo e no onClick do botão vc chama o evento.
Só que toda vez que o cara der um tab e entrar no DateTimePicker o calendário vai abrir automaticamente, dai se não quiser isso vc faz um esquema pra só abrir quando chamar pelo botão.

[quote:39c8d75564=´Evento onEnter do DateTimePicker´]
    procedure TForm1.DateTimePicker1Enter(Sender: TObject);
    begin
      Keybd_Event(VK_F2,0,0,0);
      Keybd_Event(VK_F2,0,KEYEVENTF_KEYUP,0);
      Keybd_Event(VK_MENU,0,0,0);
      Keybd_Event(VK_DOWN,0,0,0);
      Keybd_Event(VK_DOWN,0,KEYEVENTF_KEYUP,0);
      Keybd_Event(VK_MENU,0,KEYEVENTF_KEYUP,0);
      Keybd_Event(VK_DOWN,0,0,0);
    end;

[/quote:39c8d75564]

[quote:39c8d75564=´Evento onClick do Button´]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      DateTimePicker1.OnEnter(Sender);
    end;

[/quote:39c8d75564]


GOSTEI 0
Renato.pavan

Renato.pavan

13/06/2006

Valeu Adriano, vou testar sua dica.

Obrigado

Renato.


GOSTEI 0
POSTAR