德尔菲:当点击孩子时失去了父母的焦点

Question

我有一个问题与效果触发(阴影效果)。我确实把扳机设置为ismouseover = true。所以，当我把鼠标放在面板(父面板)上时，阴影就会激活，直到我开始在面板(子面板)内放置一些按钮，它才会正常工作。

当鼠标移到子对象上时，阴影效果会消失。

那么，在关注孩子的同时，是否有办法关注父母呢?

我确实尝试改变效果的触发(从ismouseover到isfocused)，但它没有给出任何不同的结果。

Answer 1

如前所述，您的设计是错误的，那么您可以删除触发器并手动执行:

// show or hide shadow effect
procedure TForm2.ShowShadowEffect(AValue: boolean);
begin
if ShadowEffect1.Enabled <> AValue then
ShadowEffect1.Enabled := AValue;
end;
// show when enter on panel
procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
ShowShadowEffect(True);
end;
// hide when leave the panel
procedure TForm2.Panel1MouseLeave(Sender: TObject);
begin
ShowShadowEffect(False);
end;
// keep visible when over button
procedure TForm2.Button1MouseEnter(Sender: TObject);
begin
ShowShadowEffect(True);
end;