如何实现多行提示?
示例如下:
(1) 要显示一个构件的提示信息,只需要设置其Hint属性就行了。但是,当在Hint中设置的字符串太长的话,效果不太好看。为了达到类似MessgeBox中的类似效果(换行提示),只需要在Hint中添加换行符即可。
(2)
procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton1.Hint:= 'Download from Teletext server'+chr(13) +
'all your pages and subpages '+chr(13)+
'automatically';
end;
|