Guest Escorpião Postado Dezembro 27, 2003 Denunciar Share Postado Dezembro 27, 2003 Galera,Minha dúvida esta no curso de Delphi... Na hora de incluir o timer esta dando erro... 'TfrmPrincipal.Timer1Timer(Sender: TObject);'Não esta satisfazendo ...procedure TfrmPrincipal.Timer1Timer(Sender: TObject);begin if MDIChaildCount <=0 then begin Fechar1.Enabled := false; FecharTodas1.Enabled := false; Salvar1.Enabled := false; Imprimir1.Enabled := false; Formatar1.Enabled := false;end; else begin Fechar1.Enabled := true; FecharTodas1.Enabled := true; Salvar1.Enabled := true; Imprimir1.Enabled := true; Formatar1.Enabled := true; end;end.Agradeço a ajuda... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 AnaoScript Postado Dezembro 27, 2003 Denunciar Share Postado Dezembro 27, 2003 if MDIChildCount <=0 thenve se é isso ae Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Escorpião
Galera,
Minha dúvida esta no curso de Delphi...
Na hora de incluir o timer esta dando erro...
'TfrmPrincipal.Timer1Timer(Sender: TObject);'
Não esta satisfazendo ...
procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin
if MDIChaildCount <=0 then
begin
Fechar1.Enabled := false;
FecharTodas1.Enabled := false;
Salvar1.Enabled := false;
Imprimir1.Enabled := false;
Formatar1.Enabled := false;
end;
else
begin
Fechar1.Enabled := true;
FecharTodas1.Enabled := true;
Salvar1.Enabled := true;
Imprimir1.Enabled := true;
Formatar1.Enabled := true;
end;
end.
Agradeço a ajuda...
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.