Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Com Agenda De Compromissos


Guest - rafax -

Pergunta

Guest - rafax -

ola amigos, desde já agradeço pela ajuda... vamos ao pontos...

fiz uma agenda de compromissos, usando um BD em Paradox, nessa tabela tenho um campo com o horario do compromisso, gostaria de saber como fazer para o programa indentificar a hora ques esta na tabela, e comparar com a hoda do sistema e me avisar que o evento esta proximo de acontecer...

gostaria de saber tambem como faço para, ao minimizar o programa, ele ficar ao lado do relogio do sistema...

agradeço novamente, e aceito sugestões.... valeu galera....

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Amigão é o seguinte:

para resolver o seu primeiro problema, acredito que a hora do compromisso esteja cadastrada no banco de dados, ai é só você comparar ela com o horário que o componente TIMER te oferece fazendo uma variavel ou label receber a hora do timer, tipo:

If VARIAVEL = TABELA.HORA Then
  Application.MessageBox('HORÁRIO DO COMPROMISSO!','Atenção',mb_IconExclamation +mb_ok);
Mais ou menos isso... e o segundo problema segue a rotina abaixo que da certo: Na seção PRIVATE adicione:
    procedure Icontray(var Msg: TMessage); message WM_ICONTRAY;
Antes da clausula Implementation na seção var adicione a linha abaixo
NotifyIconData: TNotifyIconData;
Digite a seguinte procedure
procedure TFrmBackup.Icontray(var Msg: TMessage);
var CursorPos : TPoint;
begin
  if Msg.lParam = WM_RBUTTONDOWN then begin
    GetCursorPos(CursorPos);
    PopupMenu.Popup(CursorPos.x, CursorPos.y);
  end
  else
    inherited;
end;
No evento OnCloseQuery do Form:
  If Application.MessageBox('Permanecer em execução?','Aviso !',MB_ICONQuestion +MB_YESNO) = MrYes Then
  begin
    with NotifyIconData do
    begin
      hIcon := Icon.Handle;
      StrPCopy(szTip, Application.Title);
      Wnd := Handle;
      uCallbackMessage := WM_ICONTRAY;
      uID := 1;
      uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
      cbSize := sizeof(TNotifyIconData);
    end;
    Shell_NotifyIcon(NIM_ADD, @NotifyIconData);
    CanClose := False;
    Hide;
  end
  else
  begin
    Horas.Active := False;
    OrigemDestino.Active := False;
    CanClose := True;
  end;

Esta rotina irá te perguntar se você deseja que o sistema continue em execução ou não.

cara acho que é isso qualquer coisa estamos por aki

falou

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...