F�rum Redirecionar procedure (???) #320463

02/05/2006

Primeiramente, sei que coloquei um p�ssimo t�tulo para o t�pico, mas n�o sabia como definir direito o assunto...

Bem, Tenho na tela principal do meu sistema um MainMenu cheio de itens ligados �s suas respectivas actions cujos eventos OnExecute est�o devidamente preenchidos. S� que agora calhou de eu ter de fazer uma checagem antes de executar qualquer item pelo menu. Eu s� posso permitir executar o OnExecute das actions se o resultado de uma funcao for True. Inicialmente pensei em ir Action por Action adicionando um If, mas queria saber se isso poderia ser feito de alguma maneira mais inteligente e r�pida...

Hoje o c�digo est� assim:

function MinhaFuncao:Boolean;
begin
   Result := True;
end;

procedure Action1Execute(Sender: TObject);
begin
   Form1.Show;
end;

procedure Action1Execute(Sender: TObject);
begin
   Form2.Show;
end;

procedure Action1Execute(Sender: TObject);
begin
   Form3.Show;
end;

a maneira mais dif�cil de fazer o que eu quero seria editar um a um, ficando assim:

function MinhaFuncao:Boolean;
begin
   Result := True;
end;

procedure Action1Execute(Sender: TObject);
begin
   if MinhaFuncao then
   Form1.Show;
end;

procedure Action1Execute(Sender: TObject);
begin
   if MinhaFuncao then
   Form2.Show;
end;

procedure Action1Execute(Sender: TObject);
begin
   if MinhaFuncao then
   Form3.Show;
end;

Eu queria tentar criar uma procedure padr�o que fizesse a checagem da fun��o e depois de acordo com o Sender redirecionaria o c�digo para a procedure de Execute apropriada, mas n�o tenho nem id�ia de como come�ar. Algu�m poderia tentar me dar uma luz?

Grato.

t+!

Delphi32

Curtir t�pico

+ 0

Responder