动态提示的可视化实现
进入Delphi,选File|New File。出现文件类型选择,选New页面,点Application,选OK。出现设计状态下空白窗体Form1,点中控件工具页面的Additional页面,选中Image控件,将Im
age1加到Form1上。单击Image1,在对象观察器Object Inspector的Properties属性页面上设置Image1的Picture属性为一钟表形小图标,为美观起见设置Image1的AutoSize为True。在对象观察器的Events事件页面上选择OnMouseMove并双击,设置Image1的MouseMove事件(加下划线的部分是由用户输入的语句,其它由系统自动生成):
procedure TForm1.Image1MouseMove (Sender:TObject;Shift:TShiftState;X,Y:lnteger);
begin
Image1.ShowHint:=TRUE;
Image1.hint:=‘现在时间’+TimeToStr(Time);
end;
end.