|
Вопрос # 5 768/ вопрос решён / |
|
Здравствуйте, эксперты! Подскажите как решить вот такое:
есть форма1,на ней лежит кнопка.visible = true и несколько компонентов .visible = false? при нажатии на кнопку создаю 2ю форму:
if not Assigned(Form2) then
F:=TForm2.Create(Self);
F.ShowModal;
все работает прекрасно, но есть одно но, когда я закрываю форму 2 (Close), как сделать копоненты.visible = true которые на 1й форме?
Примечание #1 (21 ноября 2011, 14:18): visible=true компонентов на форме при закрытии формы
 |
Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 21 ноября 2011, 14:15
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 21 ноября 2011, 16:09; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 14:19 [#1]:
Цитата (casio):
все работает прекрасно, но есть одно но, когда я закрываю форму 2 (Close), как сделать копоненты.visible = true которые на 1й форме?
Дык, после ShowModal() присвоить им всем Visible:= True или вызвать ихний метод Show().
Или я чото не понял?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 21 ноября 2011, 14:21 [#2]:
на 2й форме в обработчик события пишу вот так
procedure TForm2.Button1Click(Sender: TObject);
begin
//отобразить компоненты на 1й форме
Label1.Visible := True;
Label2.Visible := True;
Close;
end;
компоненты не отображаются,выскакивает ошибка
|
|
Ерёмин А.А. (статус: *Администратор), 21 ноября 2011, 14:25 [#3]:
Form1.Label1.Visible := True;
Form1.Label2.Visible := True;
Разве нет? 
|
|
|
casio (статус: Посетитель), 21 ноября 2011, 14:28 [#4]:
Ерёмин А.А.: да так, но всеравно выскакивает ошибка!
мне еще нужно Timer1 запустить на 1 форме, сделал как писал эксперт min@y™ после ShowModal() присвоить им всем Visible:= True, работает! но как таймер запустить?после ShowModal я ж не напишу Enabled :=True, нужно после того как я нажму на кнопку закрыть на 2й форме
|
21 ноября 2011, 14:36: Статус вопроса изменён на решённый (изменил автор вопроса — casio)
|
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 14:42 [#5]:
Цитата (casio):
Статус вопроса изменён на решённый (изменил автор вопроса — victor_as)
Допёр, видать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 21 ноября 2011, 15:50 [#6]:
min@y™: АГА
|
|
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 16:09 [#7]:
Цитата (casio):
АГА
Ну и молодец!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
