Guest Ricardo Soares de Lima Postado Março 22, 2004 Denunciar Share Postado Março 22, 2004 Olá pessoal é o seguinte:procedure Tfrmprincipal.Timer1Timer(Sender: TObject);begin if mdichildcount<=0 then begin fechar1.Enabled:=false; fechartodas1.Enabled:=false; salvar1.Enabled:=false; imprimir1.Enabled:=false; formatar1.Enabled:=false; end else fechar1.Enabled:=true; fechartodas1.Enabled:=true; salvar1.Enabled:=true; imprimir1.Enabled:=true; formatar1.Enabled:=true; end; status.panels[0].text:=timetostr(now); //esta linha não compila porque?end;Bem é só isso, desde já onrigado. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 piradox Postado Março 22, 2004 Denunciar Share Postado Março 22, 2004 você ta usando o now e num é ele, só issoé esse aqui ó:status.panels[0].text:=timetostr(time); Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Ricardo Soares de Lima
Olá pessoal é o seguinte:
procedure Tfrmprincipal.Timer1Timer(Sender: TObject);
begin
if mdichildcount<=0 then
begin
fechar1.Enabled:=false;
fechartodas1.Enabled:=false;
salvar1.Enabled:=false;
imprimir1.Enabled:=false;
formatar1.Enabled:=false;
end
else
fechar1.Enabled:=true;
fechartodas1.Enabled:=true;
salvar1.Enabled:=true;
imprimir1.Enabled:=true;
formatar1.Enabled:=true;
end;
status.panels[0].text:=timetostr(now); //esta linha não compila porque?
end;
Bem é só isso, desde já onrigado.
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.