改变JvLoginDialog的标题

Question

（JVCL - JEDI）是否可以更改JvLoginDialog1上标题为“输入您的用户名和密码以进入应用程序”的标题？

Answer 1

我认为你在谈论的是“提示标签”，而不是你可以在OI中改变的Caption。您可以在'jvresources.pas'中修改/本地化RsHintLabel资源字符串。另请参阅同一单元中“JvLoginForm.pas”标题下的其他条目。

Answer 2

我不想更改原始源代码（最新更改：2004！），因为它在重新安装时会丢失。所以我作弊：

class procedure TFormMain.ApplicationOnModalBegin(Sender: TObject);
begin
  with Application do
    if Components[ComponentCount - 1] is TJvLoginForm then
      (Components[ComponentCount - 1] as TJvLoginForm).OnFormShow:= JvLoginFormShow;
end;

class procedure TFormMain.JvLoginFormShow(Sender: TObject);
begin
  (Sender as TJvLoginForm).HintLabel.Caption:= 'my hint';
end;

注意：TJvLoginDialog有一个OnShow事件，它只是不起作用。自定义对话框将变得容易得多。我没有对其进行测试，但是我猜想该修复程序可能在function TJvLoginDialog.DoLogin中：添加OnFormShow:= Self.OnShow;。