Где лежат файлы реализации компонентов 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 - будет точнее

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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

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

@volvo Супер-модератор 33379 / 21503 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 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 Супер-модератор 33379 / 21503 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 12
	10.05.2015, 17:44
	Связываю событие OnClose с обработчиком opnDlgClose - будет точнее 1

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

Решение