请教一下
我用TrayIcon1控件做了个带托盘的程序
TrayIcon1 的 onclick事件胆码如下procedure TfrmMain.TrayIcon1Click(Sender: TObject);
begin
if frmMain.Showing then
   frmMain.Hide
else
   frmMain.Show;
end;另外还有个ApplicationEvents1 控件,在他的
onActivate和onDeactivate事件代码如下procedure TfrmMain.ApplicationEvents1Activate(Sender: TObject);
begin
frmMain.AlphaBlend:=false;
end;procedure TfrmMain.ApplicationEvents1Deactivate(Sender: TObject);
begin
frmMain.AlphaBlend:=true;
end;
就是想实现当焦点不再窗体上时窗体是半透明的。
问题是,我在窗体是半透明的情况下单击系统托盘,程序就隐藏了,再点一下系统托盘程序出来后再失去焦点程序并不会半透明。头两次可以再点就不好用了~~~能不能帮我看看是怎么回事?我看了下,在前两次单击托盘的时候出来的程序是有交点的,第3次单击出来的窗体是没有焦点的,也就是直接按键盘打不上字(我的默认焦点在Edit上)。
这是怎么回事??