unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
End;
var
Form1: TForm1;
implementation
uses
ComCtrls;
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
var
DateTimePicker1: TDateTimePicker;
begin
DateTimePicker1:= TDateTimePicker.Create(Form1);
DateTimePicker1.Parent := Form1;
DateTimePicker1.Width := 200;
DateTimePicker1.Top := 100;
DateTimePicker1.Left := 200;
DateTimePicker1.Visible := True;
DateTimePicker1.BringToFront;
end;
end.
Looking for relevant Development Whitepapers? Visit the SearchWinDevelopment.com Research Library.