Где лежат файлы реализации компонентов Rad Studio XE7

@Orakul · Регистрация: 07.07.2012

Студворк — интернет-сервис помощи студентам

Всем Привет !!!
Ребят для дела нужно модифицировать компонент TOpenDialog чтобы у него было событие OnResize как у TForm
В хидерах только описание класса TOpenDialog а реализации методов и событий не нашел ни в одном модуле типа *.h;*.hpp;*.c;*.cpp .
Или разработчики студии их специально спрятали от наших любрпытных глаз?

@volvo · 09.05.2015, 21:28

Наследуйся от TOpenDialog и переопределяй методы/добавляй события по желанию. Это правильный путь. Править исходники компонентов - неправильно.

@Orakul · 09.05.2015, 22:02 **[ТС]**

Ладно это понял. А имеется ли возможность из компонента закрыть родительскую форму через Handle родительской формы, логика подсказывает что нельзя так сделать (яйца курицей не командуют

) но вдруг такой механизм предусмотрели? Мой код не срабатывает так как я хотел т,е при закрытии OpenDialog - должно закрыватся все приложение а у меня все равно вызывается при событии onclose компонента opendialog главная форма и приходится и ее закрывать.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        TOpenDialog *opnDlg(new TOpenDialog( NULL ) );
         opnDlg ->Execute();
}
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
//----------------------------------------------------------------------------
void __fastcall opndlgClose(TObject *Sender)
{
    SendMessage(Form1->Handle,WM_CLOSE,0,0);
}

@volvo · 09.05.2015, 22:47

Замени SendMessage на PostMessage. Кстати, я не вижу, где ты назначаешь OnClose своего OpenDialog-а, то есть:

C++
1
opnDlg->OnClose = opndlgClose;

должно присутствовать. А сам opndlgClose должен быть методом класса формы.

@Orakul · 10.05.2015, 12:32 **[ТС]**

А как тогда получить доступ к событиям динамически создаваемого объекта (onClose , onShow и т.д). Например если я кидаю компонент TOpenDialog на форму и выбираю в инспекторе объектов событие onClose и в обработчике этого события пишу то что мне требуется выполнить при возникновении этого события то при закрытии Пользователем OpenDialog-а программа переходит на функцию обработки этого события и приложение завершает работу. Если пытаюсь это сделать с динамическим объектом opendialog то компилятор не знает что нужно при закрытии пользователем opendailog - a завершить программу, т.е он не переходит в обработчик onClose динам-го OpenDialog - а.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#pragma hdrstop
 
#include "opendlg.h"
#include "form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
    TOpenDialog *opndlg(new TOpenDialog(NULL));
    OpenDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::OpenDialog1Close(TObject *Sender)//компонент
{
    SendMessageA(Form3->Handle,WM_CLOSE,0,0);
}
//---------------------------------------------------------------------------
void __fastcall OpndlgClose() // динамический объект
{
    SendMessage(Form3->Handle,WM_CLOSE,0,0);
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#ifndef opendlgH
#define opendlgH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Dialogs.hpp>
//---------------------------------------------------------------------------
class TForm4 : public TForm
{
__published:    // IDE-managed Components
    TOpenDialog *OpenDialog1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall OpenDialog1Close(TObject *Sender);
        void __fastcall OpndlgClose(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm4(TComponent* Owner);
        TOpenDialog *opndlg;
           void __fastcall OpndlgClose();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm4 *Form4;
//---------------------------------------------------------------------------
#endif

@volvo · 10.05.2015, 12:46

Я что, просто так написал строку кода выше? Назначаешь динамически созданному компоненту обработчик и все прекрасно работает:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TOpenDialog *opnDlg(new TOpenDialog(this)); // и пускай теперь форма отвечает за удаление компонента
    opnDlg->OnClose = opndlgClose; // <--- Вот это сделать не забудь
    opnDlg->Execute();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::opndlgClose(TObject *Sender)
{
    PostMessage(Form1->Handle,WM_CLOSE,0,0); // именно Post, а не Send
}

@Orakul · 10.05.2015, 13:15 **[ТС]**

Благодарю!!!

Вот этой строкой opnDlg->OnClose = OpnDlgClose; Вы добавляете событие onClose для объекта opnDlg?

@volvo · 10.05.2015, 17:44

Связываю событие OnClose с обработчиком opnDlgClose - будет точнее

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Orakul 14 / 10 / 5 Регистрация: 07.07.2012 Сообщений: 171

	Где лежат файлы реализации компонентов Rad Studio XE7 09.05.2015, 21:26. Показов 1947. Ответов 7 Метки нет (Все метки) Всем Привет !!! Ребят для дела нужно модифицировать компонент TOpenDialog чтобы у него было событие OnResize как у TForm В хидерах только описание класса TOpenDialog а реализации методов и событий не нашел ни в одном модуле типа .h;.hpp;.c;.cpp . Или разработчики студии их специально спрятали от наших любрпытных глаз? 0

@volvo Супер-модератор 33411 / 21521 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	09.05.2015, 21:28
	Сообщение было отмечено Памирыч как решение Решение Наследуйся от TOpenDialog и переопределяй методы/добавляй события по желанию. Это правильный путь. Править исходники компонентов - неправильно. 1

@Orakul 14 / 10 / 5 Регистрация: 07.07.2012 Сообщений: 171
	10.05.2015, 13:15 [ТС]
	Благодарю!!! Вот этой строкой opnDlg->OnClose = OpnDlgClose; Вы добавляете событие onClose для объекта opnDlg? 0

@volvo Супер-модератор 33411 / 21521 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	10.05.2015, 17:44
	Связываю событие OnClose с обработчиком opnDlgClose - будет точнее 1

Где лежат файлы реализации компонентов Rad Studio XE7

Решение