ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как написать общую для всех форм процедуру закрытия формы?
25 сообщений из 40, страница 1 из 2
  1  все
Как написать общую для всех форм процедуру закрытия формы?
    #32357172
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
???
...
Рейтинг: 0 / 0
18.12.2003, 17:35
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357180
Фотография mv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mv
Участник
Для одной (FormFirst) формы пишешь OnCloseQuery (или что там нравится) , из истальных делаешь доступной эту форму через USES, и в обработчиках события OnCloseQuery этих форм указываешь FormFirst.OnCloseQuery

Или тебе код нужен?
...
Рейтинг: 0 / 0
18.12.2003, 17:40
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357189
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Я создаю actionlist, расположил его в главной форме и хочу, что во всех дочерних формочках по нажатию кнопочки Close, вызывался этот action. Так вот мне нужно написать процедуру для этого action. У меня MDI приложение.
...
Рейтинг: 0 / 0
18.12.2003, 17:47
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357239
Фотография mv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mv
Участник
То же самое, только вопрос у тебя, наверное, "Как убить дочернюю MDI - форму"?
...
Рейтинг: 0 / 0
18.12.2003, 18:23
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357255
Дмитрий Лобань
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Лобань
Гость
Создайте форму, с кнопкой Close. В обработчике нажатия этой кнопки вызывайте нужный action. Все дочерние формы унаследуйте не от TForm, а от созданной формы.
...
Рейтинг: 0 / 0
18.12.2003, 18:50
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357261
pima
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pima
Участник
А убить MDI-форму - в OnClose Action := caFree
...
Рейтинг: 0 / 0
18.12.2003, 18:54
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357496
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Неа, Дмитрий Лобань прав. А по-другому можно сделать? Еще раз. Я не хочу писать в каждой из 20 форм обработчик события по нажатию кпонки Закрыть. И спрашивал можно ли написать универсальную процедуру, подходящую для всех форм.
...
Рейтинг: 0 / 0
19.12.2003, 09:17
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357501
Berg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Berg
Участник
2Hel975:
А что просто сделать USES MainForm в дочерних формах и, скажем в OnCreate дочерней формы: OnClose := MainForm.OnCloseQuery не проходит?
...
Рейтинг: 0 / 0
19.12.2003, 09:32
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357513
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Не подходит. Причем тут MainForm.OnCloseQuery?
Еще раз. У меня есть action - actClose. Я его цепляю к кнопочки - Закрыть форму. Пишу обработчик. Что типа:

procedure TfrmMain.actCloseExecute(Sender: TObject);
begin
....
Close;
end;

Во всех формах, где есть аналогичная кнопочка вызывается этот action.
Так вот что вместо Close надо написать, чтобы у меня закрывалась не та форма, где находиться ActionList, а форма, где нажата кнопка Закрыть?
Или я не понимаю ваше решение?
...
Рейтинг: 0 / 0
19.12.2003, 09:47
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357532
Дмитрий Лобань
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Лобань
Гость
А если не использовать action?
Все действия которые у вас выполняются в actione выполняйте в обработчике нажатия кнопки Close формы предка.
...
Рейтинг: 0 / 0
19.12.2003, 10:10
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357537
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Дмитрий ваш метод хорош я не спорю. А по другому можно сделать или это единственное решение?
...
Рейтинг: 0 / 0
19.12.2003, 10:13
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357561
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
- Обратится в Action-е к компоненту который его вызвал
- спросить у него кто его родительская форма
- закрыть ее
Код: plaintext
1.
2.
3.
4.
5.
procedure TForm1.acCloseFormExecute(Sender: TObject);
begin
  TForm(TButton(TAction(sender).ActionComponent).Parent).Close;
end;
...
Рейтинг: 0 / 0
19.12.2003, 10:34
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357581
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
1. Создать форму и прописать все че надо.
2. Унаследовать прочие формы от нее.
если другие формы уже есть - делаем 1 и в описании других форм меняем class.
over.
...
Рейтинг: 0 / 0
19.12.2003, 10:48
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357586
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Это решение я и хотел услышать. Только у меня компилятор выдает ошибку - [Error] uMAIN.pas(106): Undeclared identifier: 'ActionComponent'
Заменил вместо ActionComponent ActionList, TButton - TSpeedButton. Программа запискается, но формы не закрываются, хотя в эту процедуру заходят. Посмотрел в дебугере. :-(
...
Рейтинг: 0 / 0
19.12.2003, 10:52
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357595
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
зачем ActionList
нужно именно ActionComponent - это и будет ваша кнопка
а уже от кнопки идете выше
если кнопка лежит непосредственно на форме то будет как в моем примере
если есть промежуточные контролы то нужно будет дальше проходить по Parent-ам
...
Рейтинг: 0 / 0
19.12.2003, 10:55
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357602
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
> all
через одно место и в рай ...
...
Рейтинг: 0 / 0
19.12.2003, 10:57
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357609
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
есть промежуточный - панель
...
Рейтинг: 0 / 0
19.12.2003, 10:59
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357610
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
2 KirillovA,
Не хами...
...
Рейтинг: 0 / 0
19.12.2003, 11:00
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357628
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
2 LexusR,
Выдает всю ту же ошибку. Что добавить то?
...
Рейтинг: 0 / 0
19.12.2003, 11:03
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357629
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
тогда
Код: plaintext
1.
2.
3.
4.
5.
procedure TForm1.acCloseFormExecute(Sender: TObject);
begin
  TForm(TPanel(TSpeedButton(TActio(sender).ActionComponent).Parent).Parent).Close;
end;
...
Рейтинг: 0 / 0
19.12.2003, 11:03
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357632
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
procedure TForm1.acCloseFormExecute(Sender: TObject);
begin
TForm(TPanel(TSpeedButton(TAction(sender).ActionComponent).Parent).Parent).Close;
end;
...
Рейтинг: 0 / 0
19.12.2003, 11:04
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357636
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
у меня в Delphi6 все работает
...
Рейтинг: 0 / 0
19.12.2003, 11:04
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357638
Hel975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel975
Участник
Я понимаю. Именно так и сделал, компилятор выдает ту же ошибку - [Error] uMAIN.pas(106): Undeclared identifier: 'ActionComponent'
Может какой то библиотеки не хватает?
...
Рейтинг: 0 / 0
19.12.2003, 11:05
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357642
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
компонента не хватает
...
Рейтинг: 0 / 0
19.12.2003, 11:06
| Ответить | Цитировать | Написать  
Как написать общую для всех форм процедуру закрытия формы?
    #32357647
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
ActionComponent - это свойство TAction - и всяко должно быть
...
Рейтинг: 0 / 0
19.12.2003, 11:08
| Ответить | Цитировать | Написать  
25 сообщений из 40, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как написать общую для всех форм процедуру закрытия формы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]