Inno设置:如何通过右键单击鼠标粘贴序列号并粘贴

Question

根据这个问题 Inno 设置中序列号的自定义页面，我已经实现了通过"Ctr+C"和"Ctr+V"粘贴序列号。现在我需要通过右键单击鼠标并粘贴来粘贴序列号。

我可以在编辑中添加 wndproc 以便捕获WM_PASTE消息吗？

Answer 1

更改上一个答案的代码，如下所示：

procedure OnSerialEditChange(Sender: TObject);
var
  Edit: TEdit;
  EditIndex: Integer;
begin
  Edit := TEdit(Sender);
  EditIndex := Edit.TabOrder - SerialEdits[0].TabOrder;
  if ((EditIndex = 0) and (IsValidInput = False)) then
  begin
    TryPasteSerialNumber;
  end;
  WizardForm.NextButton.Enabled := IsValidInput;
end;