Bom dia a todos,
BDS 2006 Win 32
Estou querendo fazer o seguinte, tenho em alguns forms um PopMenu que
executam comandos iguais, só mudando a referencia do form, exemplo:
procedure TfOrcamentosImpressoes.bDesenharClick(Sender: TObject);
begin
fOrcamentosImpressoes.SendToBack;
If dmRelatorios.dialogo.Execute then
Begin
dmRelatorios.frxRelatorio.LoadFromFile(dmRelatorios.dialogo.FileName);
dmRelatorios.frxRelatorio.DesignReport;
End;
fOrcamentosImpressoes.BringToFront;
end;
Bem, hoje, tenho um TPopMenu em cada form, mas gostaria de centralizar isso,
já que o código é o mesmo em todos, só mudando o nome do Form nos comandos
SendToBack e BringToFront. Aí vem a pergunta fatídica: como passar para o
click do TPopMenu, o nome do form que foi clicado sendo que o TPopMenu
estará em outro form e será chamado de vários forms?
Ou seja, terei o seguinte cenário:
No formPrincipal terei o TPopMenu.
Em diversos forms apontarei a propriedade PopMenu para
formPrincipal.PopMenu1.
Alguém sabe o que fazer nesse caso?
--
[]s
Andrei
[As partes desta mensagem que não continham texto foram removidas]
