菜鸟问题：如何在鼠标移到按钮上时显示文字

Question

受不了，
把Button的ShowHint设为True
在Hint属性中写要显示的文字

Answer 1

send you a example:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
 tmybutton=class(tbutton)
 private
 procedure onmouseenter(var msg:tmessage);message cm_mouseenter;
 procedure onmouseleave(var msg:tmessage);message cm_mouseleave;
 end;
var
  Form1: TForm1; m1:tmybutton;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
m1:=tmybutton.Create(nil);
m1.Parent:=form1;
m1.Left:=120;
m1.Top:=130;
m1.Width:=75;
m1.Height:=30
end;{ tmybutton }procedure tmybutton.onmouseenter(var msg: tmessage);
begin
 m1.Caption:='yourstring'
end;procedure tmybutton.onmouseleave(var msg: tmessage);
begin
 m1.Caption:='';
end;end.

Answer 2

同意：　galeboy(狂风小子)　
好象刚才才看到一个问同样问题的，不知道是不是你。
照：　galeboy(狂风小子)　的做法试试就知道了。