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

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