但鼠标移动到某控件上,将会显示文字说明
HINT属性输入显示内容
且SHOWHINT设为TRUE即可
如果想把文字显示在状上,使用下面
procedure TForm1
.
AppHint(Sender
:
TObject);
begin
Statusbar1 . Panels[ 0 ] . Text := Application . Hint;
end;
procedure TForm1 . FormCreate(Sender : TObject);
begin
Application . OnHint := AppHint;
end;
begin
Statusbar1 . Panels[ 0 ] . Text := Application . Hint;
end;
procedure TForm1 . FormCreate(Sender : TObject);
begin
Application . OnHint := AppHint;
end;