Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest - rafax -

Ajuda Com Agenda De Compromissos

Question

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

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148576
    • Total Posts
      644276
×
×
  • Create New...