From: "Dave Nottage" <dave@b3.deletethis.com.au>
Subject: Re: TDateTimePicker
Date: 14 Jul 2000 00:00:00 GMT
Message-ID: <8kli12$6k02@bornews.borland.com>
References: <8kl99c$28f9@bornews.borland.com>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Organization: Another Netscape Collabra Server User
X-MSMail-Priority: Normal
Newsgroups: borland.public.delphi.winapi


"Pieter Bakker" wrote:
> Hi,
>
> How can I programmatically force a TDateTimePicker to drop down ?
>

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: integer;
begin
  x := DateTimePicker1.Width - 10;
  y := DateTimePicker1.Height - 6;
  SendMessage(DateTimePicker1.Handle, WM_LBUTTONDOWN, 0, MakeLong(x, y));
  SendMessage(DateTimePicker1.Handle, WM_LBUTTONUP, 0, MakeLong(x, y));
end;

The values for x and y were from experimentation.

--
Dave Nottage