Respondendo a minha pergunta:
Bem, primeiro achei esse post em um blog:
http://delphi2006.blogspot.com/2005/11/what-component-triggered-popup-menu.html
Mas achei um saco ter que alterar a tag em cada formulário.
Aí nos comentários, alguém mencionou a propriedade PopupComponent do
TPopMenu, e
vc trabalha com herança de formulário?
procedure SeuFormPadrao.Desenhar(Form: TForm);
begin
Form.SendToBack; {ou utiliza direto self, aí n precisa do parametro}
If dmRelatorios.dialogo.Execute then
Begin
dmRelatorios.frxRelatorio.LoadFromFile(dmRelatorios.dialogo.FileName);
2 matches
Mail list logo