Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Как создать кнопку во время выполнения?

Автор: Bizonrelax 26.4.2011, 10:05

Здравствуйте! Я начинающий программист. Мне неохота читать толстые книжки и справочники, хотя они у меня есть. Я создаю какую-то программу, которая, даже не знаю точно, что будет делать. Экспериментирую... Я хочу, чтобы создалась кнопка во время выполнения программы. Я не хочу создавать эту кнопку на этапе проектирования. Условия такие: 1. Имя кнопки (Name) будет qwqw1 2. Создаваться кнопка будет по событию клика на один из элементов формы (Label1) вот функция: Код void __fastcall TForm1::Label1Click(TObject *Sender) { } Даю сведения о моём компьютере в прикреплённом файле Report3 Вот сведения о среде разработки, которой я пользуюсь: Borland C++Builder Version 6.0 (Build 10.157) В опциях проекта сняты флажки Use dynamic RTL, Build with runtime packages для упрощения переноса построенной программы *.exe на другую ОС Windows (MS, других и нету). Не предлагайте мне перейти на другую среду разработки. Новые среды разработки работают только на новых ОС, начиная с Windows XP SP3. А я уже на семёрку установил студию 2010, но загружать ради Студии Семёрку неохота. А эта обновилась до SP3 уже потом. Вот файлы и коды мои, где ничего не работает: Файл Infinity_CPP.h: Код //--------------------------------------------------------------------------- #ifndef Infinity_CPPH #define Infinity_CPPH //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published:    // IDE-managed Components     TLabel *Label1;     void __fastcall FormActivate(TObject *Sender);     void __fastcall FormKeyPress(TObject *Sender, char &Key);     void __fastcall FormPaint(TObject *Sender);     void __fastcall Label1Click(TObject *Sender); private:    // User declarations public:        // User declarations     __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif Файл Infinity_CPP.cpp: Код //--------------------------------------------------------------------------- //#ifndef dos //#include <time.h> #include <vcl.h> #pragma hdrstop #include "Infinity_CPP.h" //--------------------------------------------------------------------------- //Ìî¸ #include <dos.h> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner)     : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormActivate(TObject *Sender) { //BorderWidth = 333; //Close(); SetFocus(); this->WindowState = wsMaximized; /** Canvas->Brush->Color = clAqua; Canvas->Pen->Color = clBlack; Canvas->Pen->Width = 100; Canvas->LineTo(200, 300); **/ struct time t; gettime(&t); this->Label1->Caption = t.ti_hund+1; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key) { //if if (27 == Key) this->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormPaint(TObject *Sender) { Canvas->PenPos = Point(0, 0); Canvas->Brush->Color = clAqua; Canvas->Pen->Color = clNavy; Canvas->Pen->Width = 100; Canvas->LineTo(200, 300); //typedef long time_t; } //--------------------------------------------------------------------------- //void gettime(struct time *timep); //--------------------------------------------------------------------------- /** struct time { unsigned char ti_min; unsigned char ti_hour; unsigned char ti_hund; unsigned char ti_sec; }; **/ //--------------------------------------------------------------------------- //typedef long time_t; //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- void __fastcall TForm1::Label1Click(TObject *Sender) { /** //qwqw1; TButton *qwqw1 = new TButton(*Form1); qwqw1->Top = 80; qwqw1->Left = 300; qwqw1->Width = 80; qwqw1->Height = 70; //qwqw1->Show(); qwqw1->Caption = "Äåòåêòîð êíîïîê"; qwqw1->Font->Color = clBlack; qwqw1->Enabled = True; qwqw1->Visible = True; **/ //TButton *qwqw1 = new TButton(Parent); } //--------------------------------------------------------------------------- В моём проекте присутствует только одна форма Form1 и ярлык Label1, которые я разместил на этапе разработки. Я прошу, помогите мне правильно написать код в теле функции void __fastcall TForm1::Label1Click(TObject *Sender) { } Я искал-искал, запросы в Гугуль давал, в Википедии лазил, на разных форумах искал... Ну все умные, все всё знают, никто вопроса такого не задал ни разу! И в факах тоже искал, но там очень мало везде.

Автор: Usper 26.4.2011, 10:53

Плохо искали. Пишем в объявлении класса TForm1 в раздел, скажем Public: Код ... public: ...     TButton *MegaButton;     void __fastcall MegaButtonClick (TObject *Sender); //это у нас обработчик нажатия на кнопку ... ... в обработчик нажатия на метку: Код void __fastcall TForm1::Label1Click(TObject *Sender) {     MegaButton= new TButton(Sender);     MegaButton->Parent = Form1;     MegaButton->Top = 100;     MegaButton->Left = 100;     MegaButton->Caption = "Мегабатон";     MegaButton->OnClick = MegaButtonClick;     MegaButton->Visible = true; } Ну и где-нибудь по ходу нужно написать обработчик нажатия на кнопку: Код ... void __fastcall TForm1::MegaButtonClick (TObject *Sender) {     ShowMessage("Мегабатон нажат!111!!!11"); } ...

Автор: xvr 26.4.2011, 11:07

Цитата(Usper @  26.4.2011,  10:53 )     MegaButton= new TButton(Sender); Точнее так: Код MegaButton= new TButton(this); Все таки владелец кнопки будет форма, а не TLabel на который кликнули

Автор: Bizonrelax 26.4.2011, 12:46

Мегабольшое вам спасибо! Я бы никогда не догадался! Я даже не ожидал, что мне так сильно помогут!!! Меня поражает возможность задавать такие сложные вопросы и получать на них такие понятные и всеобъемлющие ответы!!! Я бился над этй задачей два дня! Не мог сообразить, как это всё работает! Когда тыкаешься вслепую, очень бывает долго шишки считать!  Книжки, конечно, тоже иногда помогают, но живой человек куда умнее любой книжки (сегодняшней бумажной) и сразу укажет на нужное место, где надо заострить внимание. На этом ставлю точку. Ответ на мой вопрос был дан, я разобрался в коде, проверил на практике. Тему помечаю, как решённую.

Автор: borisbn 26.4.2011, 14:17

Цитата(Bizonrelax @  26.4.2011,  10:05 ) Не предлагайте мне перейти на другую среду разработки. Новые среды разработки работают только на новых ОС, начиная с Windows XP SP3. А я уже на семёрку установил студию 2010, но загружать ради Студии Семёрку неохота. А эта обновилась до SP3 уже потом. Bizonrelax, просьба - не отвечай мне на следующий вопрос. Народ, кто-нибудь понял, что сказано в приведённой цитате ?

Автор: srt 26.4.2011, 19:33

Ein ching Zvi tsyn Firen ziptsih das bin ihre nihten Schlesser Sie aus der bi

Автор: Ignat 27.4.2011, 07:13

Цитата(borisbn @  26.4.2011,  15:17 ) Народ, кто-нибудь понял, что сказано в приведённой цитате ?  Да. У ТС установлено две винды на разных разделах - XP SP3 и 7. Причем первая, на момент установки бормана, была ещё SP2 (или того менее). Под первой осью - упомянутый борман, под второй вс2010. Но разобравшись в вопросах сложной архитектуры вычислительной машины, мы упираемся в вопросы личной мотивации. Очевидно, что семёрку грузить не позволяет страх перед... как бы это сказать... неведомой долбаной фигнёй, а на XP ставить ничего не нужно, ибо там уже живёт Билдер, который был поставлен тогда, когда ничего кроме него установить не получилось. Вы лучше скажите, кто-нибудь понял следующее? Цитата(srt @  26.4.2011,  20:33 ) Ein ching Zvi tsyn Firen ziptsih das bin ihre nihten Schlesser Sie aus der bi  ЗЫ: к модераторам: такая тема пропадает в профразделе. Может в Песочницу её, а?

Автор: borisbn 27.4.2011, 08:20

Цитата(Ignat @  27.4.2011,  07:13 ) под второй вс2010 студия вроде ж и у билдера есть 2010. не помню то ли RAD, то ли XE... Цитата(Ignat @  27.4.2011,  07:13 ) Вы лучше скажите, кто-нибудь понял следующее? С этим как раз понятно - такой же набор буков, как и у ТС, но только на немецком

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)