为什么在Delphi2009中用TCnTrayIcon的BalloonHint不出气泡提示?
代码是:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CnButtons, CnClasses, CnTrayIcon;
type
TForm1 = class(TForm)
CnTrayIcon1: TCnTrayIcon;
CnBitBtn1: TCnBitBtn;
procedure CnBitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
CnTrayIcon1.UseAppIcon :=True;
end;
procedure TForm1.CnBitBtn1Click(Sender: TObject);
begin
CnTrayIcon1.BalloonHint('提示','内容',btError,3);
end;
end.
刚刚看到发错区域了,但是不会删,请版主不要介意
[
本帖最后由 lzj1981 于 2008-11-16 22:45 编辑 ]