Delphi | SEclub.org
Delphi
Все новые
Всего сообщений: 1912
*
Miha
14 июн 2010 в 21:20
Pavlus, я всё время сохраняю, не помогло :(
*
Miha
14 июн 2010 в 21:26
Borland одним словом :kompolom:
*
Pavlus
14 июн 2010 в 21:30
miha, попробуй удалить предыдущего исполняйку.
14 июн 2010 в 21:30 / Pavlus (1)
*
Miha
14 июн 2010 в 21:35
Pavlus, тоже нет =( Ща попробую настройки сбросить или ещё что. Так, где мой бубен...
*
Pavlus
14 июн 2010 в 21:38
miha, ещё попробуй удалить старую запись реестра и запустить программу ещё раз.
*
Miha
14 июн 2010 в 21:47
Pavlus, о, получилось! (записи в реестре и раньше удалял). Просто проверил все файлы на строку со старым значением и изменил файлы. Короче, компиль что-то намутил, хз. Главное - разобрался кажись )
*
Miha
17 июн 2010 в 18:28
У кого-нибудь есть понятный пример работы с треем? Если конкретно, то нужно поместить иконку в трей (нет проблем), а по нажатию ПКМ вызвать PopupMenu. ЛКМ - Показать окошко. Всего-то :) Ну для примера как в АИМПе
*
ZBEP
18 июн 2010 в 21:27
miha, могу скинуть одну маленькую прогу с треем или вот часть кода, компонент tTrayIcon:
Procedure TForm1.WinManager(Sender:
TObject);
begin
ShowWindow(Handle,SW_HIDE);
form1.Visible:=false;
n2.Caption:="Развернуть";
end;
procedure TForm1.TrayIcon1DblClick
(Sender: TObject);
begin
if n2.Caption="Свернуть" then begin
WinManager(Form1);
end else begin
n2.Caption:="Свернуть";
ShowWindow(Handle,SW_Shownormal);
Form1.Visible:=True;
Application.Restore;
application.BringToFront;
end;
end;
*
ZBEP
18 июн 2010 в 21:42
Не успел исправить, время истекло, поэтому дабл-пост.
miha, могу скинуть одну маленькую прогу с треем или вот часть кода, компонент tTrayIcon:
//Сворачивание в трей
Procedure TForm1.WinManager(Sender:
TObject);
begin
ShowWindow(Handle,SW_HIDE);
form1.Visible:=false;
n2.Caption:="Развернуть";
end;
//Востановление по даблклику
procedure TForm1.TrayIcon1DblClick
(Sender: TObject);
begin
if n2.Caption="Свернуть" then begin
WinManager(Form1);
end else begin
n2.Caption:="Свернуть";
ShowWindow(Handle,SW_Shownormal);
Form1.Visible:=True;
Application.Restore;
application.BringToFront;
end;
end;
Ну а для того что бы меню по правому нажатию клавиши было - юзай компонент tPopupMenu, и укажи его в tTrayIcon (например вручную можно: "TrayIcon1.PopupMenu:=PopupMenu1;")
18 июн 2010 в 21:43 / ZBEP (2)
*
ZBEP
18 июн 2010 в 21:53
П.с.
n2.Caption:="Свернуть/Развернуть";
Эт я для себя писал, это не обязательно, можешь без этого использовать. Это типа для того, что бы по дабл клику не токо сворачивалось но и разворачиалось, плюс отображалось в подменю ПКМ.
18 июн 2010 в 21:54 / ZBEP (1)
*
Miha
19 июн 2010 в 20:24
ZBEP, спасибо большое, позже разберусь =)
*
Miha
20 июн 2010 в 00:42
ZBEP, всё-таки не помешал бы кодик =]
20 июн 2010 в 00:43 / Miha (2)
Скачать тему
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2025