Inno Setup：如何通过右键单击鼠标粘贴序列号并粘贴

Question

根据这个问题CustomPage for Serial Number in Inno Setup，我已经意识到通过“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;