菜鸟求救，关于APPLICATION.TITLE(35)

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #1

我想在APPLICATION最小化缩放在任务栏的时候，改变APPLICATION的TITLE值，在PROJECT菜单里面弄不行，不能动态的改，另外因为我有个函数,是要统计总的记录数，并且显示在TITLE的值里面。改怎么写呢？最小化到任务栏的代码如下procedure TForm1.ToolButton7Click(Sender: TObject)
begin Application.MainForm.Visible := False
if IsWindowVisible(Application.Handle) then ShowWindow(Application.Handle, SW_HIDE )
end;

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #2

//主界面放一个TApplicationEvents控件，编写最小化事件，如下：procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);begin application.Title:='min'end;

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #3

不行，试过了。鼠标移动到任务栏的图标上面。没有反映

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #4

比如说我要打入代码Application.Title :='今天您有'+#32+inttostr(datarecord)+#32+'条提醒';就不行。

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #5

我想在APPLICATION最小化缩放在任务栏的时候，改变APPLICATION的TITLE值.---------------这是你的要求，怎么现在又冒出来 <不行，试过了。鼠标移动到任务栏的图标上面。没有反映> ？你到底需要什么功能啊？------------------还有，#32就是空格，'今天您有'+#32+inttostr(datarecord)+#32+'条提醒'，可以写成： '今天您有 '+inttostr(datarecord)+' 条提醒'。

 

D

Dstorm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #6

其时那个HideTxt是任务栏的,代码如下!~var zz: Integer = 0;procedure TForm1.tmr1Timer(Sender: TObject);var h: HWND;begin Inc(zz)
Application.Title := '今天您有'+#32+inttostr(zz)+#32+'条提醒'
h := FindWindow('Shell_TrayWnd', nil)
h := FindWindowEx(h, 0, 'ReBarWindow32', nil)
h := FindWindowEx(h, 0, 'MSTaskSwWClass', nil)
h := FindWindowEx(h, 0,'ToolbarWindow32', nil)
PostMessage(h, WM_MOUSEMOVE, 0, 0);end;

 

Z

zkktom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-08

• #7

好像不需要那么复杂的啊 我操作起来很快

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-24

• #8

多人接受答案了。