Органайзер

[Rio309]

Делаю органайзер для себя.
Столкнулся с 2мя проблемами.
1.Как сворачивать программу в трей?
2.Как сделать что б в определенное системное время(в какое именно можно менять в самой программе) выскакивало другое окно. Как нормально сохранять время в которое будет выскакивать окно и как постоянно проверять системное время и сравнивать с заданым?

[Terran]

1.Как сворачивать программу в трей?

Для этого можно использовать компонент CoolTrayIcon.

2.Как сделать что б в определенное системное время(в какое именно можно менять в самой программе) выскакивало другое окно. Как нормально сохранять время в которое будет выскакивать окно и как постоянно проверять системное время и сравнивать с заданым?

Узнать системное время и дату можно так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=TimeToStr(Now);//Системное время
Edit2.Text:=DateToStr(Now);//Системная дата
Edit3.Text:=DateTimeToStr(Now);//Системная дата с временем
End;

Проверку системного времени можете поставить в таймер.
Компонент CoolTrayIcon можете найти здесь: http://programmersforum.ru/showthrea...t=23556&page=2

[Rio309]

Спасибо. Попробую доделать прогу .

[Rio309]

Как сделать что б при нажатии крестика справа сверху не закрывало программу, а сворачивало в трей.
Все остальное вроде понял через примеры, а это там как то странно сделано .

[SNUPY]

Можно так сделать:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
  // и тут ты ее сворачиваеш в трей
end;

[Rio309]

Спасибо . А теперь обратная проблема. Как закрыть програму. Сворачивает в трей при любой попытке закрыть програму, даже не через крестик справа сверху.
А canclose работает только в процедуре closequary

[SNUPY]

Ну давай сделаем так =):

var
  BClosed:boolean=false;
...
procedure TForm1.CloseBtn(Sender: TObject);
begin
  BClosed:=true;
  form1.close;
end;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if BClosed then exit;
  Canclose:=false;
  // и тут ты ее сворачиваеш в трей
end;
...

но ИМХО это коряво ^_^

[Rio309]

И последняя проблемма. Как нормально сохранить дату и время в одном стринге в формате например: "08.11.2008 23:05:00". И сделать нормальный ввод пользователю, что б он не мог ошибится.
И как проследить:
Я поставил таймер который каждую секунду проверяет время, и если оно заданное, то выскакивает окно. Но а что если компьютер в заданное время был выключен? Надо сделать что б при включении програмы оно таки выскакивало.

[Terran]

Сообщение от Rio309

Как сделать что б при нажатии крестика справа сверху не закрывало программу, а сворачивало в трей.
Все остальное вроде понял через примеры, а это там как то странно сделано .

Можете сделать так:

Private
    { Private declarations }
     Procedure WMQueryEndSession(Var Message: TMessage);
     Message WM_QUERYENDSESSION;
-----
Var
    SessionEnding: Boolean;
Procedure TForm1.WMQueryEndSession(Var Message: TMessage);
Begin
SessionEnding:=True;
Message.Result:=1;
End;

Procedure TForm1.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
Begin
CanClose:=((Not XPCheckBox1.Checked) Or SessionEnding);
If Not CanClose Then
Begin
Application.Minimize;
CoolTrayIcon1.HideMainForm;
End;
End;

Здесь ещё есть XPCheckBox1. Когда у него стоит галочка, то прога сворачивается на крестик, а когда нет, то закрывается.

[Rio309]

С треем я уже разобрался, спасибо.