PopupMenu
Olá pessoal!
Gostaria de saber se é possível usar um único PopupMenu com vários Edits. Neste menu Popup haverá apenas a opção ´Copiar´. Assim, quando for selecionado o texto num dos Edits ligados a este Popup e clicado com o botão direito do mouse sobre os mesmo Edits, aparecerá a opção ´Copiar´ e o texto irá para o Clipboard.
Criei o PopupMenu e inseir o seguinte código:
procedure TfrmNF.PopupCopiarClick(Sender: TObject);
begin
(Sender as TEdit).CopyToClipboard;
end;
Mas não funcionou. Aparece o erro ´Invalid Class Typecast´.
Alguém pode ajudar a resolver?
Grato.
wbb
Gostaria de saber se é possível usar um único PopupMenu com vários Edits. Neste menu Popup haverá apenas a opção ´Copiar´. Assim, quando for selecionado o texto num dos Edits ligados a este Popup e clicado com o botão direito do mouse sobre os mesmo Edits, aparecerá a opção ´Copiar´ e o texto irá para o Clipboard.
Criei o PopupMenu e inseir o seguinte código:
procedure TfrmNF.PopupCopiarClick(Sender: TObject);
begin
(Sender as TEdit).CopyToClipboard;
end;
Mas não funcionou. Aparece o erro ´Invalid Class Typecast´.
Alguém pode ajudar a resolver?
Grato.
wbb
Wbb
Curtidas 0
Respostas
Wbb
09/03/2004
SOBE!
GOSTEI 0
Wbb
09/03/2004
Não é mais necessário. Foi resolvido da seguinte maneira:
T+
wbb
procedure TfrmNF.Copiar1Click(Sender: TObject); begin if (ActiveControl is TEdit) then TEdit(ActiveControl).CopyToClipboard; end;
T+
wbb
GOSTEI 0