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, 23:07
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Сообщение от heretic1990
EndLeSSDre@M, эта прога будит закрываться из popupmenu которое будит вызываться из трея, а не по средствам закрытия формы, кликая на кнопку закрыть она будит просто сворачиваться в трей. сворачивания то я добился с помощью Action := caNone; Application.Minimize; . но при этом программу вообще не закрыть(((
Как вариант:
PostMessage(FindWindow(nil, 'Form1'), wm_quit, 0, 0);
|
|
|
|
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:57
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
090808, большое спасибо !!!! помогло закрыть прогу!!!
всем спасибо вопрос исчерпан))
|
|
|
|
29.03.2010, 00:10
|
|
Banned
Регистрация: 14.06.2009
Сообщений: 256
С нами:
8899013
Репутация:
105
|
|
... интересненькая задачка))) я тут набросал по быстрому... щас еще подумаю и подредактирую.... буду рад если кто поможет доделать
да и исправьте ошибки... а то я не силен в этом)))
PHP код:
program Multik;
var N,K,zaec,volk,d,i:integer;
label 1;
BEGIN
read(N,K);
i:=0;
volk:=0;
zaec:=k; //ступенька зайца
d:=int(n/2); // максимальное количество шагов возможных на лестнице
for l=1 to d do //цикл перебора шагов
volk:=volk+2; //волк шагает через 2 ступеньки
zaec:=zaec+1; //заяц через одну
if zaec=volk then write(i) and goto 1; // если совпали то выводим и и заканчиваем программу
next l
write(i); //если не совпали то просто выводим 0 и заканчиваем программу
1:END.
|
|
|
|
29.03.2010, 10:41
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от Life7
... интересненькая задачка))) я тут набросал по быстрому... щас еще подумаю и подредактирую.... буду рад если кто поможет доделать
да и исправьте ошибки... а то я не силен в этом)))
я не понял, это че такое??? тупое набивание постов??? на сколько я помню это был мой пост, и слова точно такие же!
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 6 (пользователей: 0 , гостей: 6)
|
|
|
|
Похожие темы
Комбинированный вид
