Delphi最小化至任务栏
时间: 2024-05-22 21:17:00 浏览: 8
在Delphi中,可以通过将Form的WindowState属性设置为wsMinimized来将窗体最小化至任务栏。代码如下:
Form1.WindowState := wsMinimized;
此外,也可以通过在Form的OnMinimize事件中调用Windows API函数来实现最小化至任务栏。代码如下:
procedure TForm1.FormMinimize(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_MINIMIZE);
end;
需要在uses中添加Windows单元。
相关问题
Delphi最小化至通知栏
要将Delphi窗口最小化到通知栏,可以使用以下代码:
1. 在Form的OnClose事件中添加以下代码:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caMinimize; // 最小化窗口
Hide; // 隐藏窗口
end;
2. 在Form的OnMinimize事件中添加以下代码:
procedure TForm1.FormMinimize(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE); // 隐藏应用程序
TrayIcon1.Visible := True; // 显示通知栏图标
TrayIcon1.BalloonHint := '应用程序已最小化到通知栏'; // 设置通知栏提示信息
TrayIcon1.ShowBalloonHint; // 显示通知栏提示信息
end;
3. 在Form的OnRestore事件中添加以下代码:
procedure TForm1.FormRestore(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_SHOW); // 显示应用程序
TrayIcon1.Visible := False; // 隐藏通知栏图标
end;
4. 在Form中添加一个TTrayIcon组件,并将其Visible属性设置为False。
这样,当用户最小化窗口时,窗口将被隐藏并最小化到通知栏中。通知栏图标将显示通知栏提示信息。当用户单击通知栏图标时,窗口将被还原。
delphi7最小化的程序显示
如果您的 Delphi7 程序在最小化后不显示在任务栏上,可以在程序的 OnCreate 事件中添加以下代码:
```delphi
Application.ShowMainForm := False;
```
这将使您的程序在启动时不显示主窗口,但仍然会在任务栏上显示。然后,在程序的 OnMinimize 事件中添加以下代码:
```delphi
WindowState := wsMinimized;
ShowInTaskbar := True;
```
这将使程序在最小化时显示在任务栏上。