VPF::visible не работает - Форум программистов

RNT

Дата 16.7.2009, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Я ставлю свойство visible у формы в инспекторе объектов в false, но форма невидимой не становится . Почему ?

Keeper89

Дата 16.7.2009, 18:11 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Скорее всего ошибка в 17 строке...

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 16.7.2009, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(RNT @ 16.7.2009, 17:49

)

Я ставлю свойство visible у формы в инспекторе объектов в false, но форма невидимой не становится

Где? в Design-time или в run-time? Главная форма или вторичная?
Главная форма не может автоматически стать невидимой, ибо в Application.run ей автоматически присваивается Visible:=True.
А вторичные формы обычно вызываются при помощи myForm.Show[Modal], так что тоже невидимость тут отменяется.

RNT

Дата 16.7.2009, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Извиняюсь , вот я выложил исходник . Он работает без проблем . В нем две кнопки
Первая кнопка:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.Visible:=True;
end;

Вторая кнопка:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
    Form1.Visible:=False;
end;

Но если в инспекторе объектов я на этапе проектирования установлю свойство visible в false, то форма не скроется. Почему ?

Присоединённый файл ( Кол-во скачиваний: 2 )

visible.rar 6,10 Kb

kami

Дата 16.7.2009, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(kami @ 16.7.2009, 18:22

)

ибо в Application.run ей автоматически присваивается Visible:=True

не совсем корректно сказал, это в случае, если MainForm.WindowState <> wsMinimized

Добавлено через 2 минуты и 14 секунд
код первой кнопки не имеет смысла, imho.
Форма стала невидимой, как ты нажмешь на кнопку невидимой формы? smile

RNT

Дата 16.7.2009, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Цитата

Главная форма не может автоматически стать невидимой, ибо в Application.run ей автоматически присваивается Visible:=True.

Это где ?

kami

Дата 16.7.2009, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(RNT @ 16.7.2009, 18:29

)

Это где ?

Это в реализации метода Application.Run, модуль Forms.

RNT

Дата 16.7.2009, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Цитата

код первой кнопки не имеет смысла, imho.
Форма стала невидимой, как ты нажмешь на кнопку невидимой формы?

Это я сделал для наглядности.

Цитата

Это в реализации метода Application.Run, модуль Forms.

Ясно. А как тогда мне сделать чтобы форма сразу при запуске стала невидимой ? Следующий код почему-то не работает.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
    Form1.Hide;
end;

kami

Дата 16.7.2009, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(RNT @ 16.7.2009, 18:45

)

Следующий код почему-то не работает.

/me ушел застрелиться.
Потому и не работает, что OnCreate вызывается в Application.CreateForm (меню Project>ViewSource).
А Application.Run идет ПОСЛЕ этого. И что бы ты ни сделал в конструкторе, это не поможет.

Сразу предупреждаю, что переносить этот код из OnCreate в OnShow не стоит. (хотя, для наглядности можешь попробовать, отпишешься потом smile

).

Просмотрел код Application.Run? Подозреваю, что нет. В общем, твой путь - указать WindowState:= wsMinimized. И усё.

RNT

Дата 16.7.2009, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Цитата

В общем, твой путь - указать WindowState:= wsMinimized.

Попробовал. Окно программы просто сворачивается . Мне нужна ПОЛНАЯ невидимость. Как это можно сделать ?

Keeper89

Дата 16.7.2009, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

RNT, вас в гугле забанили? smile

Код


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.Run;
end.

http://www.delphitricks.com/source-code/fo...at_startup.html

Цитата(kami @ 16.7.2009, 19:24

)

код первой кнопки не имеет смысла, imho.
Форма стала невидимой, как ты нажмешь на кнопку невидимой формы? smile

Вот я тоже задумался, зачем это? smile

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 19:11

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 16.7.2009, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(RNT @ 16.7.2009, 19:01

)

. Мне нужна ПОЛНАЯ невидимость. Как это можно сделать

что ты с ней только будешь делать...с этой невидимостью...
hide main form

Добавлено через 3 минуты и 43 секунды

Цитата(Keeper89 @ 16.7.2009, 19:11

)

вас в гугле забанили?

не, просто нужно здесь и сейчас.
А почему так происходит - это не нужно.

Уж не супер-пупер ли навороченную вредятину делаем? Достанем все равно, и прибьем на месте. (просто мысли вслух) smile

RNT

Дата 16.7.2009, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Цитата

Application.ShowMainForm := False;

Спасибо ! Работает как надо.

Цитата

что ты с ней только будешь делать...с этой невидимостью...

Делаю прогу для проверки количества писем в почтовом ящике . Должен быть виден только значек в трее.

Keeper89

Дата 16.7.2009, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(kami @ 16.7.2009, 20:12

)

Уж не супер-пупер ли навороченную вредятину делаем? Достанем все равно, и прибьем на месте. (просто мысли вслух) smile

Вредятина с формой - это что-то новое и суперэффективное smile

.
З.Ы. Ща за флуд схватим. smile

Добавлено через 1 минуту и 39 секунд
А просто свернуть форму в трей нельзя (в значок smile

)?

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 19:21

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 16.7.2009, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(Keeper89 @ 16.7.2009, 19:21

)

З.Ы. Ща за флуд схватим.

Ага. А развить-то тему хочется. smile

RNT

Дата 16.7.2009, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.6.2009

Репутация: нет
Всего: нет

Цитата

А просто свернуть форму в трей нельзя (в значок smile)?

Чтобы свернуть прогу в трей надо создать значек в трее и скрыть форму , насколько я знаю

Данкинг

Дата 16.7.2009, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(RNT @ 16.7.2009, 20:19

)

Должен быть виден только значек в трее.

BsTray из пакета BusinessSkin - и будет тебе счастье. smile

--------------------

There's nothing left but silent epitaphs.

former

Дата 17.7.2009, 00:38 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Цитата(RNT @ 16.7.2009, 19:28

)

Чтобы свернуть прогу в трей надо создать значек в трее и скрыть форму , насколько я знаю

В JEDY есть TJvTrayIcon.

Код


TrayIcon: TJvTrayIcon
...
TrayIcon.HideApplication;
Application.Minimize;

И усе!

Цитата(Данкинг @ 16.7.2009, 19:43

)

BsTray из пакета BusinessSkin - и будет тебе счастье. smile

Данкинг, зачем, если есть полно бесплатных? smile

Это сообщение отредактировал(а) former - 17.7.2009, 00:38

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Данкинг

Дата 17.7.2009, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(former @ 17.7.2009, 01:38

)

Данкинг, зачем, если есть полно бесплатных?

А с чего BS платным-то стал? Я же говорю, у меня он бесплатно ставится, правда, версия старая какая-то.

--------------------

There's nothing left but silent epitaphs.

former

Дата 17.7.2009, 14:14 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Цитата(Данкинг @ 17.7.2009, 01:30

)

А с чего BS платным-то стал?

Тык он и был всегда платным, если ты про этот.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Данкинг

Дата 17.7.2009, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(former @ 17.7.2009, 15:14

)

Тык он и был всегда платным, если ты про этот.

Хм, действительно, прочитал файл инфы, который прилагается к тому, что у меня:

Цитата

Use the key generator included in this package to register the program.

Но при этом, повторяюсь, всё ставится и работает у меня без проблем. smile

Тогда крякнутые компоненты больше не обсуждаем. smile

Это сообщение отредактировал(а) Данкинг - 17.7.2009, 16:57

--------------------

There's nothing left but silent epitaphs.

THandle

Дата 17.7.2009, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

M
THandle

Данкинг, прошу более не рекомендовать компоненты, которые являются платными, выдавая их за бесплатные. В следующий раз сочту за обсуждение взломанных компонентов.

kami, Keeper89, вы сами все поняли. Аккуратнее. Буду давать и не устные предупреждения за оффтопик.

Данкинг

Дата 17.7.2009, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(THandle @ 17.7.2009, 22:47

)

Данкинг, прошу более не рекомендовать компоненты, которые являются платными, выдавая их за бесплатные.

Я только вот узнал, что BS - платный, иначе я бы его и не обсуждал. Больше не буду, разумеется. smile

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »