Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

06.04.2010, 16:04
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме: 7879791
Репутация:
265
|
|
Сообщение от icqnum
Да мне для компа нужна
Что именно? Запус явы на ПК ?
Таких прогу куча.
Или ты хочеш свой чат накатать? 
|
|
|

06.04.2010, 16:18
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме: 4022236
Репутация:
38
|
|
Он видимо хочет код чата галактики на delphi чтобы создать такой же чат и быть крутым челом 
|
|
|

06.04.2010, 16:24
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме: 7879791
Репутация:
265
|
|
Сообщение от SkyLine32
Он видимо хочет код чата галактики на delphi чтобы создать такой же чат и быть крутым челом 
такого кода нет.
она написана на другом языке
|
|
|

06.04.2010, 16:32
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме: 4022236
Репутация:
38
|
|
Сообщение от stepashka_
такого кода нет.
она написана на другом языке
Это ты мне то зачем говоришь? Говори icqnum, я то знаю прекрасно этот чат и на чём он написан.
|
|
|

06.04.2010, 18:55
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме: 4022236
Репутация:
38
|
|
Мне нужно из процедуры:
procedure TForm1.FormHide(Sender: TObject);
begen
...
end;
вызвать таймер, то есть после сворачивания формы должен запустится таймер:
procedure TForm1.FormHide(Sender: TObject);
begin
Label1.Caption := 'Hello World';
{ после этого запускаем тут таймер который будет влиять на то что находится ниже }
ShowMessage('Будь проклят этот мир!!!');
end;
Ну это всего лишь пример. Как можно сделать подобную хрень? хелп!
|
|
|

06.04.2010, 19:07
|
|
Новичок
Регистрация: 05.03.2009
Сообщений: 14
Провел на форуме: 318673
Репутация:
0
|
|
Как можно сделать на delphi так, что бы нельзя было закрыть программу ни чере alt+f4 ни через правую кнопку закрыть, ни свернуть?
Подскажите пожалуйста!
|
|
|

06.04.2010, 19:09
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме: 4022236
Репутация:
38
|
|
Сообщение от Den37
Как можно сделать на delphi так, что бы нельзя было закрыть программу ни чере alt+f4 ни через правую кнопку закрыть, ни свернуть?
Подскажите пожалуйста!
не закрыть через alt + f4
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
Key := 0;
end;
end;
|
|
|

06.04.2010, 19:16
|
|
Новичок
Регистрация: 05.03.2009
Сообщений: 14
Провел на форуме: 318673
Репутация:
0
|
|
что то не выходит, я новичок в этом деле, куда вставить этот код?
|
|
|

06.04.2010, 19:18
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме: 4761503
Репутация:
229
|
|
Как можно сделать подобную хрень? хелп!
sleep? (если же программа будет виснуть при sleep - то создавай отдельную процедуру, заноси в нее то что в процедуре FormHide, ну и дальше эту отдельную процедуру вызывай через отдельный поток (createthread))
|
|
|

06.04.2010, 19:26
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме: 4022236
Репутация:
38
|
|
Сообщение от Den37
что то не выходит, я новичок в этом деле, куда вставить этот код?
клинки на форму и перейди в Events, кликни 2 раза по FormKeyDown и вставь в форме
if (Key = VK_F4) and (ssAlt in Shift) then begin
Key := 0;
между begin и end
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|