将窗体最小化,怎样才能有一个小图标出现在状态栏的右下角。实现给分?

解决方案 »

  1.   

    装个第三方VCL比较合适;
    到WWW。51DELPHI。COM下载一组界面的;1ST4000等太多了;
      

  2.   

    你说的是在系统信息区里面显示:
    var
        NotifyIconData:TNotifyIconData;
    begin
        设置NotifyIconData的一些结构变量
        //向系统信息区添加图标
        if not Shell_NotifyIcon(NIM_ADD,@NotifyIconData) then
        begin
            ShowMessage('Failed');
            Application.Terminate;
        end;
        //将程序窗口设为TOOL窗口式样,是应用程序在任务栏上不显示
        SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
    end;
      

  3.   

    你不要实现系统托盘吗
     你下载一个Delphi之未经证实的葵花宝典2.7
    里面就有