Скачать: CL | DM;

Видимость формы   Найти похожие ветки 

← →
Zesik ©   (2007-06-04 22:29) [0]

Дорогие мастера
у меня имеется глюк
при вызове процедуры
Form.Visible:=false;
форма не исчезает
хотя раньше все отрабатывало

Поэтому может ктонибуть дать кодик, для скрытия формы

---

← →
Loginov Dmitry ©   (2007-06-04 22:32) [1]

Какое событие приводит в выполнению приведенной строки кода?

---

← →
Zesik ©   (2007-06-04 22:34) [2]

это не имеет значения

---

← →
Loginov Dmitry ©   (2007-06-04 22:44) [3]

Хочешь сказать, что если поместить на форме кнопку и в ее обработчике разместить указанный код, то форма все-равно не исчезает?

---

← →
Zesik ©   (2007-06-04 22:53) [4]

да
вот в этом вся и беда

---

← →
DVM ©   (2007-06-04 22:55) [5]

> Хочешь сказать, что если поместить на форме кнопку и в ее
> обработчике разместить указанный код, то форма все-равно
> не исчезает?

Ну и такое возможно, может у него там понапихано собственных обработчиков сообщений.

---

← →
DVM ©   (2007-06-04 22:56) [6]

> да
> вот в этом вся и беда

Покажи dfm формы и pas (хотя бы только interface часть)

---

← →
Zesik ©   (2007-06-04 23:00) [7]


procedure TZagruzkaForm.Timer1Timer(Sender: TObject);
var
 y:integer;
begin
y:=ProgressBar1.Position;
z:=y+5;
ProgressBar1.Position:=z;
y:=z;
if z=100 then
begin
ZagruzkaForm.Visible:=false;
Timer1.Enabled:=false;
PasForm.ShowModal;
end;
повторяю раньше код отрабатывал

---

← →
Loginov Dmitry ©   (2007-06-04 23:31) [8]

А если чуть-чуть пошаманить :) Вот так не сработает?
ZagruzkaForm.Visible:=true;
ZagruzkaForm.Visible:=false;

---

← →
Loginov Dmitry ©   (2007-06-04 23:32) [9]

И лучше убрать упоминание ZagruzkaForm из всех методов класса TZagruzkaForm

---

← →
Zesik ©   (2007-06-04 23:44) [10]

> Loginov Dmitry ©   (04.06.07 23:31) [8]
>
> А если чуть-чуть пошаманить :) Вот так не сработает?
> ZagruzkaForm.Visible:=true;
> ZagruzkaForm.Visible:=false;
>

ZagruzkaForm.Visible:=true;
такого делать нельзя,выдает ошибку(почему не спрашивайте:),так надо)

---

← →
Anatoly Podgoretsky ©   (2007-06-04 23:57) [11]

> Zesik  (04.06.2007 23:44:10)  [10]

Visible:=false;

И больше ничего

---

← →
Zesik ©   (2007-06-05 00:04) [12]

> Visible:=false;

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

---

← →
Loginov Dmitry ©   (2007-06-05 00:09) [13]

> есть ли другие методы для скрытия формы


есть типа этого:
ShowWindow(Handle, SW_HIDE)

---

← →
Однокамушкин   (2007-06-05 08:24) [14]

Попрпобуйте после Visible:=False добавить Application.ProcessMessages...

---

← →
Kolan ©   (2007-06-05 08:31) [15]

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

Тут видимо и ошибка&#133

---

← →
Плохиш ©   (2007-06-05 11:15) [16]

> Zesik ©   (04.06.07 22:29)  
> Дорогие мастера
> у меня имеется глюк
> при вызове процедуры
> Form.Visible:=false;
> форма не исчезает

Форма скрывается, но не так какую ожидаешь...

---

← →
Плохиш ©   (2007-06-05 11:18) [17]

> Zesik ©   (04.06.07 23:00) [7]
>
> procedure TZagruzkaForm.Timer1Timer(Sender: TObject);
> var
>  y:integer;
> begin
> y:=ProgressBar1.Position;
> z:=y+5;
> ProgressBar1.Position:=z;
> y:=z;
> if z=100 then
> begin
> ZagruzkaForm.Visible:=false;
> Timer1.Enabled:=false;
> PasForm.ShowModal;
> end;

Предлагаю в этот обработчик включить следующий код:

 if self <> ZagruzkaForm then MessageBox("Иди учить основы!");


---

← →
homm ©   (2007-06-05 11:36) [18]

> такого делать нельзя,выдает ошибку(почему не спрашивайте:),так надо)

Ну тогда и ты нас не спрашивай ничего. Или выкладывай все на чистоту.

---

← →
Anatoly Podgoretsky ©   (2007-06-05 12:05) [19]

> homm  (05.06.2007 11:36:18)  [18]

Да не и не надо, и так все понятно

> так надо)

так ему и надо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.013 c