 |
|
28.03.2010, 20:44
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
EndLeSSDre@M, не помогло((
вопрос ещё актуален!
|
|
|
28.03.2010, 21:10
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от heretic1990
EndLeSSDre@M, не помогло((
вопрос ещё актуален!
хм.... ну если есть этот компонент то все просто:
CoolTrayIcon.HideMainForm;
это в кнопку добавь!
|
|
|
|
28.03.2010, 21:33
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от heretic1990
может у тебя этот компонент уже установлен (посмотри на вкладке samples)? или не соответствует версии компилятора?
Скачал заного компонент, всё ОК 
|
|
|
|
28.03.2010, 21:36
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
Сообщение от EndLeSSDre@M
хм.... ну если есть этот компонент то все просто:
CoolTrayIcon.HideMainForm;
это в кнопку добавь!
это то само собой, а мне надо чтобы при нажатии кнопки закрыть, которая рядом с кнопками свернуть и развернуть.
пробовал так:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Application.Minimize;
end;
но проект вообще не закрывается, даже с помощью кнопки с действием close;
|
|
|
|
28.03.2010, 21:43
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
сделай уж так тогда
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caNone;
CoolTrayIcon.HideMainForm;
end;
а по идее, на сколько я щас соображаю... то если это будет в ивенти при закрытии формы, то ее никак не закрыть... или я просто чего то не знаю(((
в твоем случае можно просто кнопку закрыть сделать не активной...
Последний раз редактировалось EndLeSSDre@M; 28.03.2010 в 21:52..
|
|
|
|
28.03.2010, 22:47
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
EndLeSSDre@M, эта прога будит закрываться из popupmenu которое будит вызываться из трея, а не по средствам закрытия формы, кликая на кнопку закрыть она будит просто сворачиваться в трей. сворачивания то я добился с помощью Action := caNone; Application.Minimize; . но при этом программу вообще не закрыть(((
|
|
|
|
28.03.2010, 22:59
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
пробуй этот код! должно помочь
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ccc:=1;
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ccc=1 then
CanClose:=true
else
begin
CanClose:=false;
Application.Minimize;
end;
end;
end.
Последний раз редактировалось EndLeSSDre@M; 28.03.2010 в 23:02..
|
|
|
|
28.03.2010, 23:01
|
|
Banned
Регистрация: 14.06.2009
Сообщений: 256
С нами:
8899013
Репутация:
105
|
|
помогите найти пожалуйста самый большой учебник MidletPascal буду сидеть учить
|
|
|
|
28.03.2010, 23:03
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от Life7
помогите найти пожалуйста самый большой учебник MidletPascal буду сидеть учить
в гугле забанили что ли??? ну сиди ты скачивай и проверяй где страниц больше... если все время искать что то готовенькое, то ничего в этой жизни не достигнешь!
|
|
|
|
28.03.2010, 23:07
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Сообщение от heretic1990
EndLeSSDre@M, эта прога будит закрываться из popupmenu которое будит вызываться из трея, а не по средствам закрытия формы, кликая на кнопку закрыть она будит просто сворачиваться в трей. сворачивания то я добился с помощью Action := caNone; Application.Minimize; . но при этом программу вообще не закрыть(((
Как вариант:
PostMessage(FindWindow(nil, 'Form1'), wm_quit, 0, 0);
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
