Fórum PopupMenu #219431
09/03/2004
0
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
Curtir tópico
+ 0
Responder
Posts
10/03/2004
Wbb
SOBE!
Responder
Gostei + 0
10/03/2004
Wbb
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)