Mais Um Problema

[eroshands]

procedure TFrmPrincipal.FormShow(Sender: TObject);

begin

with frmbancos do

begin

if QrLocFunADIMIN.value = true then

begin

funcionario1.enabled := true;

end else

begin

funcionario1.enabled := false;

end;

end;

end;

Estas linhas estão funcionando perfeitamente. A questão é, como fazer com que o mainmenu(Alterar Usário) faça esta rotina?

procedure TFrmPrincipal.Alterarusurio1Click(Sender: TObject);

begin

frmAcesso.ShowModal;

StatusBar1.Panels[0].Text := 'Usuário em atividade : ' + UpperCase(FrmBancos.QrLocFunNOMEFUNC.AsString);

o correto seria ficar aqui dentro as linhas acima.

Sem mais,

SDS

[pauloevaristo]

Prezado colega, se o que eu tentendi foi que você quer chamar aquele procedimento

dentro de outro, basta você incluir a seguinte linha dentro do procedimento desejado :

TFrmPrincipal.FormShow(nil);

[pauloevaristo]

Prezado colega, se o que eu tentendi foi que você quer chamar aquele procedimento

dentro de outro, basta você incluir a seguinte linha dentro do procedimento desejado :

FrmPrincipal.FormShow(nil);

FrmPrincipal.FormShow(nil);

[Capablanca]

É Eros, eu também (novamente ) não consegui entender direito que o que vc. quer. Se for o que eu estou pensando, o pessoal já respondeu.

Uma alternativa bastante interessante seria centralizar esta ação (bem como outras) dentro de um objeto ACTIONLIST.