chamar procedure de outa procedure

Delphi

19/07/2005

Ja vi isto antes mais não encontrei
tenho um componente action e estou utilizando o F4 em varias situações dentro do formulario preciso testar os casos abaixo e chamar a procedure

procedure TFormBalcao2.FechaNotaF41Click(Sender: TObject);
begin
if Panel.visible = true then
begin
pnlBut1click;
end;
if Panel1.visible then
begin
pnlBut2click;
end;
end;

Alguem poderia ajudar?

não estou sabendo fazer isto


Dpinho

Dpinho

Curtidas 0

Respostas

Massuda

Massuda

19/07/2005

Não sei se entendi direito o problema, mas imaginando que pnlBut1Click e pnlBut2Click são métodos de TFormBalcao2 usados para tratar os eventos OnClick (dos panels pnlBut1 e pnlBut2?)...
procedure TFormBalcao2.FechaNotaF41Click(Sender: TObject);
begin
  if pnlBut1.visible then
    begin
      pnlBut1click(Sender);
   end;

 if pnlBut2.visible then
   begin
     pnlBut2click(Sender);
  end;
end;



GOSTEI 0
POSTAR