Ajuda Com Agenda De Compromissos

[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....

[Vivendo&Aprendendo]

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