[El Sanchez]

Как активировать копирование »

Johny777, забыл, что ли, как в авторане я тебе делал?

Код:

[code]
var
    PopMenu: TPopupMenu;
    Menu: TMenuItem;

procedure MenuOnClick(Sender: TObject);
begin
    WizardForm.InfoBeforeMemo.CopyToClipboard;
end;
    
procedure InitializeWizard();
begin
    PopMenu := TPopupMenu.Create(WizardForm);
    Menu := TMenuItem.Create(WizardForm);
    Menu.Caption := 'Копировать';
    Menu.OnClick := @MenuOnClick;
    PopMenu.Items.Add(Menu);
    WizardForm.InfoBeforeMemo.PopupMenu := PopMenu;
end;