Question

求教delphi 高手 求代码 点击显示桌面 窗口form1保持不最小化

点击显示桌面 窗口form1保持不最小化 且不用form1.formstyle:=fsstayontop;和timer控件
求代码

我找了很久 都没有符合要求的 有vb c bcb的代码 就是没delphi的 伤心啊~~~
逼我啊~~~~就没人会？？？？？？

Answer 1

// 点击显示桌面?不明白
// 窗口不最小化

// 先声明
{ Private declarations }
procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
// 下面是实现

procedure TForm18.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnAppMessage;
end;

procedure TForm18.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
var
m: TMessage;
mc: TWMSysCommand;
begin
if Msg.message = WM_SYSCOMMAND then begin
m.Msg := Msg.message;
m.WParam := Msg.wParam;
m.LParam := Msg.lParam;

mc := TWMSysCommand(m);
if mc.CmdType = SC_MINIMIZE then begin
Handled := true;
exit;
end;
end;

inherited;
end;

procedure TForm18.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then begin

Msg.Result := 1;
exit;
end;

inherited;
end;

追问

点击 显示桌面 按钮 在快速启动工具栏里
我试过拦截最小化的信息 就是拦不到 不信你试试 这段代码不行

相同 拦截 窗口不可见 的信息 倒是可以 不过要用timer随时监测 不想这样

Answer 2

override WndProc 过程;

处理消息:
if (msg.Msg=WM_ACTIVATE) AND (msg.wParam=WA_INACTIVE)
;//
else
inherited;

Answer 3

hide
问下楼主想实现怎样的功能？

Answer 4

画吧 。