Динамическое созданием Image занесение picture с помощью OpenPictureDialog

@Mr.Sandman · Регистрация: 19.12.2011

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

Создаю Image, задаю параметры.

C++
1
2
3
4
5
6
7
8
9
TImage *img = new TImage(pTabSheet);
        img->Parent = pTabSheet;
        img->Left = 15;
        img->Top = 25;
        img->Width = 140;
        img->Height = 160;
        img->Picture->LoadFromFile("fon.png");
        //img->OnClick = TOpenPictureDialog* PictureDl1;
        //img->Picture->LoadFromFile(PictureDl1->FileName);

Нужно что бы при нажатии на Image появлялось окно выбора, и нужная картинка заносилась в Image.
В выше приведенном коде я пробовал но, появляется куча ошибок. Подскажите.

Добавлено через 100500 минут

C++
1
2
3
4
5
6
//h
public:     // User declarations
TTabSheet *pTabSheet;
TOpenPictureDialog* PictureDl1;
TImage *img;
void __fastcall imgClick(TObject *Sender);

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
//cpp
TImage *img = new TImage(pTabSheet);
        img->Parent = pTabSheet;
        img->Left = 15;
        img->Top = 25;
        img->Width = 140;
        img->Height = 160;
        img->Picture->LoadFromFile("fon.png");
        img->OnClick = imgClick;
        img->Picture->LoadFromFile(PictureDl1->FileName);
 
          TOpenPictureDialog* PictureDl1;
          img->Picture->LoadFromFile(PictureDl1->FileName);

[ILINK32 Error] Error: Unresolved external '__fastcall TForm3::imgClick(System::TObject *)' referenced from C:\USERS\MRSANDMAN\DESKTOP\ПРОЕКТ\PROJEC TS\DEBUG\UNIT3_SPISKI.OBJ
Осталась одна ошибка

@DefineTrueFalse · 29.03.2012, 19:27

Сообщение от Gleban38

Без __fastcall TForm3(TComponent* Owner); + еще ошибки (без нее нельзя)

Инициализацию класса "лучше" объявлять в public, а не в private.

C++
1
2
public:
__fastcall TForm3(TComponent* Owner);

И обратите внимание на мой последний пост, касательно cpp.

@Mr.Sandman · 29.03.2012, 19:30 **[ТС]**

Да конечно, я попробовал,

C++
1
2
3
4
5
6
void __fastcall TForm3::imgClick(TObject * Sender) {
        TOpenPictureDialog * PictureDl1;
        if (PictureDl1->Execute()) {
          img->Picture->LoadFromFile(PictureDl1->FileName);
        }
        }

[BCC32 Error] Unit3_Spiski.cpp(48): E2089 Identifier 'imgClick' cannot have a type qualifier
Full parser context
Unit3_Spiski.cpp(26): parsing: void _fastcall TForm3::Button1Click(TObject *)
[BCC32 Error] Unit3_Spiski.cpp(56): E2451 Undefined symbol 'ValueList1'
Full parser context
Unit3_Spiski.cpp(26): parsing: void _fastcall TForm3::Button1Click(TObject *)

@DefineTrueFalse · 29.03.2012, 19:33

А до объявления закрыть действие при клике кнопки? Это какая-то стрельба с завязанными глазами получается.

@Mr.Sandman · 29.03.2012, 19:37 **[ТС]**

Все по порядку.
Задача:
1.При нажатии на кнопку создается Image.
1a.При нажатии на созданный Image появляется OpenPictureDialog.
1b.Выбирается картинка и загружается в Image.

@Avazart · 29.03.2012, 21:48

Unit1.h

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TOpenPictureDialog *OpenPictureDialog1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
   void __fastcall ImClick(TObject *Sender); // !!!
};
//---------------------------------------------------------------------------

Unit1.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
TImage *Im;
//---------------------------------------------------------------------------
void __fastcall TForm1::ImClick(TObject *Sender)
{
if(OpenPictureDialog1->Execute())
  ((TImage*)Sender)->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Im = new TImage(this);
Im->Parent=this;
Im->OnClick= ImClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Im;
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	29.03.2012, 19:33
	А до объявления закрыть действие при клике кнопки? Это какая-то стрельба с завязанными глазами получается. 1

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	29.03.2012, 19:37 [ТС]
	Все по порядку. Задача: 1.При нажатии на кнопку создается Image. 1a.При нажатии на созданный Image появляется OpenPictureDialog. 1b.Выбирается картинка и загружается в Image. 0