ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
13.02.2008, 02:39
|
|
Постоянный
Регистрация: 06.12.2006
Сообщений: 321
Провел на форуме:
1536533
Репутация:
370
|
|
+voron+, only for you - http://ru.wikipedia.org/wiki/Генератор_псевдослучайных_ чисел
|
|
|
13.02.2008, 09:23
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
подскажите как запретить закрытие form1 когда открыта form2?
|
|
|
|
13.02.2008, 10:43
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 7
Провел на форуме:
30728
Репутация:
34
|
|
OnCloseQuery
Код:
CanClose:=not(Form2.Vilible);
|
|
|
|
13.02.2008, 10:52
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Сообщение от Aristarh Dark
OnCloseQuery
Код:
CanClose:=not(Form2.Vilible);
Код:
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=not(Form2.Vilible);
end;
end.
не получается. выделяет красным эту строку-
Код:
CanClose:=not(Form2.Vilible);
может какой модуль надо подключить?
|
|
|
|
13.02.2008, 11:06
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
и еще один вопрос. как сделать чтобы когда держишь курсор допустим над button1 всплывала строка (подсказка)?
|
|
|
|
13.02.2008, 11:32
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Там ошибка в коде, не Vilible, а Visible. Имхо, более правильно так
Код:
if Form2.Visible then
CanClose := not (Form2.Visible);
А хотя и так можно )
Чтобы всплывала подсказка, надо у формы установить свойство ShowHint в значение True, а у компонента (например, button1) в свойство Hint запихать саму подсказку |
|
|
|
13.02.2008, 12:07
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Сообщение от krypt3r
Там ошибка в коде, не Vilible, а Visible. Имхо, более правильно так
Код:
if Form2.Visible then
CanClose := not (Form2.Visible);
А хотя и так можно )
Чтобы всплывала подсказка, надо у формы установить свойство ShowHint в значение True, а у компонента (например, button1) в свойство Hint запихать саму подсказку
Код:
if Form2.Visible then
CanClose := not (Form2.Visible);
мне немного не то надо. в данном случае действительно форма 1 не закрывается пока не закроешь форму 2. а мне надо что бы даже при нажатии на форму1 форма2 была на форме1. а она становиться на второй план при нажатии на форму1. и что бы звук в колонках был при этом "тук-тук"
(стандартный) ну не знаю как это объяснить...
Код:
Чтобы всплывала подсказка, надо у формы установить свойство ShowHint в значение True, а у компонента (например, button1) в свойство Hint запихать саму подсказку
не работает.
извеняюсь всплывающая подсказка заработала после второго комплита.
|
|
|
|
13.02.2008, 12:17
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Тогда, быть может,
Код:
Form2.Parent := Form1;
? Правильно понимаю? При открытой второй форме перейти на первую нельзя, пока не закроешь вторую? Или тогда еще попробовать писать не
, а
Последний раз редактировалось krypt3r; 13.02.2008 в 12:21..
|
|
|
|
13.02.2008, 12:40
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Правильно понимаю? При открытой второй форме перейти на первую нельзя, пока не закроешь вторую?
совершенно верно. но не получается что то не с этим -
выделяет красным
не с этим-
и не с этим-
|
|
|
|
13.02.2008, 13:16
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Правильно понимаю? При открытой второй форме перейти на первую нельзя, пока не закроешь вторую?
GSM, верно все же будет:
Просто если тебе выскочит сообщение, с тремя кнопками нажимай YES 
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
