怎么样延长showhint的显示时间？还有其他小问题，大家进来讨论一下吧？(11分)

问题：
1.我如何控制showhint的时间长度？
2.怎么样定义一个最简单的类供自己用？
3.怎么样做祖先窗体？
4.能不能想办法让datepicker控件不显示日期时间，实际有不需要显示日期的情况，在这样的情况下，我能想办法把他清掉显示为空吗？
这些问题憋了很长时间了，希望大家讨论可以把它解决掉，谢谢谢谢！！

哈，哇，一口气问了这么多问题啊！
我先回答第一个： Application.HintHidePause := 1000000;

1、Application.HintHidePause
2、
type
TMyClass=class(TObject)
3、
4、当需要显示为空时，可以用一个MaskEdit/edit盖住datepicker

既然问到hint,我就把前几天的心得给你：
如果创建自己的hint窗体？（也就是自定义）
你查看 FlatStyle 和 Vcl 源码，会给你很多提示

//首先定义一个hint类
type
TMyHint = class(THintWindow)
protected
procedure Paint; override;
public
procedure ActivateHint (HintRect: TRect; const AHint: string); Override;
constructor Create(AOwner: TComponent);override;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
HintWindowClass := TMyHint;
end;


constructor TMyHint.Create(AOwner: TComponent);
var
region: HRgn;
begin
inherited Create(AOwner);
region:=CreateEllipticRgn(1,1,200,200);//圆形。也可以根据图片来创建形状
//自己随便了
SetWindowRgn(handle, region, true);
end;

procedure TMyHint.Paint;
begin
Color := clblue;//背景颜色
canvas.TextOut(clientRect.Left+100,clientRect.Top,Caption);//hint文字
//位置，要计算好
end;

procedure TMyHint.ActivateHint (HintRect: TRect; const AHint: string);
begin
Caption := AHint;
SetWindowPos(Handle, HWND_TOPMOST, HintRect.Left, HintRect.Top, 200, 200, SWP_SHOWWINDOW or SWP_DRAWFRAME or SWP_NOACTIVATE);
//SWP_DRAWFRAME 必须有，否则不会画出你的hint窗口图形来
end;

谢谢大家的捧场谢谢谢谢。

其他的樓上的都回答了,我來看看3
3:就我的理解,你的意思是做一個窗體,子窗體繼承這個窗體?
假設FormName是TestForm
只要在Project中的option裏面Forms裏面Auto-Create裏面去掉這個窗口
其他的窗口的
type
TForm1 = class(TForm)
改爲
type
TForm1 = class(TTestForm)

呵呵，今天长见识了。我以前也不知道如何增加Hint的显示时间，学习！[]

TDatePicker控件的显示形式可以通过Format属性来控制，
比如你在Format中输入yyyy-MM-dd，那么显示就为2003-11-12
要想显示为空，有一个方法可以实现，就是在Format属性中输入' '（空格）；

第四个问题，我用rzdbdatepicker 很容易实现，在format中设置即可！！

谢谢大家，有些你们不说我还真的想死也想不出来呢，谢谢你们地支持。！

我觉得搞delphi 是一件非常exiting的事情，有这么多朋友一起分享知识的快乐！

接受答案拉！！谢谢捧场！