Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.10.2010, 22:43   #1 (permalink)
Devil_Boy
Новичок
 
Регистрация: 18.10.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Комментарии

Пожалуйста откоментируйте каждую строку)

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:= OnMinimizeWindow;
dtpSite.Time:= time;
dtpProg1.Time:= time;
dtpProg2.Time:= time;
end;

procedure TForm1.OnMinimizeWindow(Sender: TObject);
begin
PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbTime.Caption:= timetostr(time);
if (lbTime.Caption)=timetostr(dtpsite. Time) then openprog(edsite.Text);
if (lbTime.Caption)=timetostr(dtpprog1 .Time) then openprog(edprog1.Text);
if (lbTime.Caption)=timetostr(dtpprog2 .Time) then openprog(edprog2.Text);
end;

procedure TForm1.openprog(i: string);
begin
shellexecute(TForm(owner).Handle, nil, PChar(i), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.DefineIconInformation(Action : Integer; IC: TIcon);
var
notifIcData: TNotifyIconData;
begin
with notifIcData do
begin
cbSize := SizeOf(notifIcData);
Wnd := Form1.Handle;
uId := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER+1;
hIcon := icon.Handle;
szTip := 'Program';
end;
case action of
1: Shell_NotifyIcon(Nim_Add, @notifIcData);
2: Shell_NotifyIcon(Nim_Delete, @notifIcData);
3: Shell_NotifyIcon(Nim_Modify, @notifIcData);
end;
end;

procedure TForm1.ControlWindow(var MSG: TMessage);
begin
if msg.WParam = SC_MINIMIZE then
begin
DefineIconInformation(1, Application.Icon);
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end else
inherited;
end;

procedure TForm1.MouseReaction(var MSG: TMessage);
var
p: TPoint;
begin
GetCursorPos(p);
case msg.LParam of
WM_LBUTTONUP, WM_LBUTTONDBLCLK:
begin
DefineIconInformation(2, Application.Icon);
Showwindow(Application.Handle, SW_SHOW);
ShowWindow(Handle, SW_SHOW);
end;
WM_RBUTTONUP:
begin
SetForegroundWindow(Handle);
PopupMenu1.Popup(p.X, p.Y);
Postmessage(Handle, WM_NULL,0,0);
end;
end;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
DefineIconInformation(2, Application.Icon);
ShowWindow(Application.Handle, SW_SHOW);
ShowWindow(Handle,SW_SHOW);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.btTimerClick(Sender: TObject);
begin
timer1.Enabled:= not(timer1.Enabled);
end;

procedure TForm1.brBrowseClick(Sender: TObject);
begin
if opendialog1.Execute then
edprog2.Text:= OpenDialog1.FileName;
end;

end.
Devil_Boy вне форума   Ответить с цитированием

Старый 18.10.2010, 22:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение вашего вопроса должно упроститься после прочтения похожих топиков

Медведев поручил подготовить меры об ответственности Интернет-СМИ за комментарии чита
Интернет-СМИ заставят редактировать комментарии читателей на форумах

Старый 20.10.2010, 19:39   #2 (permalink)
Devil_Boy
Новичок
 
Регистрация: 18.10.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Откоментируйте процедуры только, плизз( беспланто =) )

У вас весь модуль из одних только процедур состоит, так что ваша просьба равносильна вышеоглашенной . Ваш модератор.
Devil_Boy вне форума   Ответить с цитированием
Старый 20.10.2010, 23:25   #3 (permalink)
KiD2
Member
 
Аватар для KiD2
 
Регистрация: 07.06.2010
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот смотрите что получилось... Сам так и не понял что она делает))) Работает с треем, открывает какие-то файлы, таймеры зачем-то... Ай вообщем не важно держите... Если что не так... То уже час ночи и я ушел спать...
Код:
procedure TForm1.FormCreate(Sender: TObject); // процедура Создание формы
begin // начало процедуры
Application.OnMinimize:= OnMinimizeWindow; // Обработываем Application.onMinimize, чтобы минимизация срабатывала по нажатию кнопки на панели задач
dtpSite.Time:= time; // присваеваем таймеру dtpSite значение time
dtpProg1.Time:= time; // присваеваем таймеру dtpProg1 значение time
dtpProg2.Time:= time; // присваеваем таймеру dtpProg2 значение time
end; // конец процедуры

procedure TForm1.OnMinimizeWindow(Sender: TObject); // процедура свертывания окна
begin // начало процедуры
PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); // посылаем нашему окну сообщение о минимизации
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); // минимизируем/сворачиваем окно формы
end; // конец процедуры

procedure TForm1.Timer1Timer(Sender: TObject); // Процедура обрабатывающая событие OnTimer, т.е. что будет происходит в через заданный интервал времени
begin // начало процедуры
lbTime.Caption:= timetostr(time); // переводим значением time в строку и присваиваем lbTime
if (lbTime.Caption)=timetostr(dtpsite. Time) then openprog(edsite.Text); //если значение lbTime совпадает со значением dtpsite открываем процедуру openprog для edsite
if (lbTime.Caption)=timetostr(dtpprog1 .Time) then openprog(edprog1.Text); //если значение lbTime совпадает со значением dtpprog1 открываем процедуру openprog для edprog1
if (lbTime.Caption)=timetostr(dtpprog2 .Time) then openprog(edprog2.Text); //если значение lbTime совпадает со значением dtpprog1 открываем процедуру openprog для edprog2
end; // конец процедуры

procedure TForm1.openprog(i: string); // Процедура открытия программы
begin // начало процедуры
shellexecute(TForm(owner).Handle, nil, PChar(i), nil, nil, SW_SHOWNORMAL); // запуск приложения
end; // конец процедуры

procedure TForm1.DefineIconInformation(Action : Integer; IC: TIcon); // Процедура действия со значком
var // объявляем переменные
notifIcData: TNotifyIconData; //
begin // начало процедуры
with notifIcData do  //  Заполняем структуру TNotifyIconData
begin // начало действия 1
cbSize := SizeOf(notifIcData); //  Размер
Wnd := Form1.Handle;  // Хендл нашего приложения(окна)
uId := 1; // присваиваем переменные
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; //
uCallbackMessage := WM_USER+1;//
hIcon := icon.Handle; // Хендл передаваемой в процедуру иконки
szTip := 'Program'; // Сообщение появляющееся при наведении
end; // конец действия 1
case action of //  Действия выполняемые процедурой, выбираем
1: Shell_NotifyIcon(Nim_Add, @notifIcData); // добавление
2: Shell_NotifyIcon(Nim_Delete, @notifIcData); // удаление 
3: Shell_NotifyIcon(Nim_Modify, @notifIcData); // изменение
end; // конец выбора
end; // конец процедуры

procedure TForm1.ControlWindow(var MSG: TMessage); // процедура управления окном
begin // начало процедуры
if msg.WParam = SC_MINIMIZE then // если окно свернуто то
begin // начало действия 1
DefineIconInformation(1, Application.Icon);  //  Добавляем значок в трей
ShowWindow(Handle, SW_HIDE); //  Скрываем программу
ShowWindow(Application.Handle, SW_HIDE); //  Скрываем кнопку с TaskBar'а
end else // конец действия 1, иначе
inherited; //
end; // конец процедуры

procedure TForm1.MouseReaction(var MSG: TMessage); // Процедура реакции на мышь
var // объявляем переменные
p: TPoint; //
begin // начало процедуры
GetCursorPos(p); // Запоминаем координаты курсора мыши
case msg.LParam of // Проверяем какая кнопка была нажата
WM_LBUTTONUP, WM_LBUTTONDBLCLK: // Действия, выполняемый по одинарному или двойному щелчку левой кнопки мыши на значке. В нашем случае это просто активация приложения
begin // начало действия 1
DefineIconInformation(2, Application.Icon); // Удаляем значок из трея
Showwindow(Application.Handle, SW_SHOW); // Восстанавливаем кнопку программы
ShowWindow(Handle, SW_SHOW); // Восстанавливаем окно программы
end; // конец действия 1
WM_RBUTTONUP: // Действия, выполняемый по одинарному щелчку правой кнопки мыши
begin // начало действия 2
SetForegroundWindow(Handle); // Восстанавливаем программу в качестве переднего окна
PopupMenu1.Popup(p.X, p.Y); // Заставляем всплыть TPopUp - всплывающее меню и выводят там те или иные действия
Postmessage(Handle, WM_NULL,0,0); //
end; // конец действия 2
end; // конец выбора
end; // конец процедуры

procedure TForm1.Show1Click(Sender: TObject); // Процедура клика мыши
begin // начало процедуры
DefineIconInformation(2, Application.Icon); //  Удаляем значок из трея
ShowWindow(Application.Handle, SW_SHOW); //  Восстанавливаем кнопку программы
ShowWindow(Handle,SW_SHOW);  // Восстанавливаем окно программы
end; // конец процедуры

procedure TForm1.Exit1Click(Sender: TObject); // Процедура нажатия кнопи выхода
begin // начало процедуры
Application.Terminate; // закрываем приложение
end; // конец процедуры

procedure TForm1.btTimerClick(Sender: TObject); // Процедура нажатия на таймер
begin // начало процедуры
timer1.Enabled:= not(timer1.Enabled); // вкл\выкл таймер
end; // конец процедуры

procedure TForm1.brBrowseClick(Sender: TObject); // Процедура выбора файла
begin // начало процедуры
if opendialog1.Execute then // Если файл выбрали, тогда
edprog2.Text:= OpenDialog1.FileName; // записываем имя файла
end; // конец процедуры

end. // конец программы
KiD2 вне форума   Ответить с цитированием
Старый 21.10.2010, 11:23   #4 (permalink)
Devil_Boy
Новичок
 
Регистрация: 18.10.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо Вам огромнейшее)
Devil_Boy вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:25.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.