Компоненты - динамическое создание

03.03.2008, 20:33. **Показов** 3501. **Ответов** 11

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

Народ подскажите как создать эти 5 эдитов не на Form1 , а например на
TabControl1 на 3 вкладке!!!

C++

for (int i=0;i<5;i++)
        {
        TEdit *edit = new TEdit(this);
 ---> edit->Parent = Form1;<---
        edit->Name = "edit"+AnsiString(i);
        edit->Height = 16;
        edit->Width = 104;
        edit->Left = 0;
        edit->Top = i*edit->Height;
        edit->Text = AnsiString(i);
        }

@Lord_Voodoo · 04.03.2008, 09:35

ну так главное этим компонентам правильно родителя указать...

@elron · 10.10.2008, 13:09

пасибо огромное, все прекрасно работает!!!
сделал нечто похожее:

C++

  TButton *but=new TButton(this);
  but->Parent=Form1;
  but->Name="but"+AnsiString(i);
  but->Caption="qwe"+AnsiString(i);
  but->Top=i*25+i*5;
  but->Left=50;
  but->Height=25;
  but->Width=75;

а как сделать события на кнопки(например при нажатии на кнопки) ?????

oxotnik · 10.10.2008, 14:12

руками прописываешь в заголовочнике формы

Код

void __fastcall OnBtnClick (TObject *Sender);

в *.срр файле формы:

Код

void __fastcall OnBtnClick (TObject *Sender)
{
   TButton *m_btn = dynamic_cast<TButton*>(Sender);
   if (m_btn->Name == "чему то") // реакция на нажатие определённой кнопки
...
...
}

и при динамическом создании присваиваешь этот обработчик:

Код

  TButton *but=new TButton(this);
...
...
...
  but->OnClick = OnBtnClick; // присваиваем обработчик

@elron · 15.10.2008, 12:10

вроде сделал как надо, но всеравно не работает((
Unit1.cpp :

C++

...
#pragma resource "*.dfm"
TForm1 *Form1;
TButton *but;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall OnBtnClick (TObject *Sender){
  TButton *m_btn = dynamic_cast<TButton*>(Sender);
  if(m_btn->Name == "but1"){
    but->Width+=30;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0;i<5;i++){
  but=new TButton(this);
  but->Parent=Form1;
  but->Name="but"+AnsiString(i);
  but->Caption="qwe"+AnsiString(i);
  but->Top=i*25+i*5;
  but->Left=50;
  but->Height=25;
  but->Width=75;
  but->OnClick = OnBtnClick;
  }
}
//---------------------------------------------------------------------------

Unit1.h :

C++

...public:      // User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall OnBtnClick (TObject *Sender);
};
...

oxotnik · 15.10.2008, 12:29

void __fastcall OnBtnClick (TObject *Sender);
перенеси в секцию __published:

@Lord_Voodoo · 15.10.2008, 12:30

elron, ну код какой-то мутный, там все делается проще, но тебе виднее, а ошибку исправить легко:

Код

void __fastcall TForm1::OnBtnClick (TObject *Sender){
  TButton *m_btn = dynamic_cast<TButton*>(Sender);
  if(m_btn->Name == "but1"){
    but->Width+=30;
    }
}

ты же в классе прописал прототип функции, но ее реализации нет, вот и линкер паникует...

oxotnik · 15.10.2008, 12:34

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

void __fastcall OnBtnClick (TObject *Sender);
перенеси в секцию __published:

это тут ни при чем...

@elron · 15.10.2008, 12:47

всё работает)) ну всё, пришло моё время

пасибо))

@elron · 24.10.2008, 13:49

это.. а как сделать чтоб например при нажатии на кнопку она изменяла свои параметры? например при нажатии на кнопку qwe1 эта кнопка изменяла длину или ширину.. а то в исходнике изменяется только последняя созданная кнопка..

@Lord_Voodoo · 24.10.2008, 14:41

тебе просто на онклике надо анализировать, какую кнопку жали и ее параметры менять

@elron · 01.12.2008, 14:02

Это.. с кнопкой разобрался.. кто-нибудь может подсказать как сделать тоже самое, только с компонентом TImage, а точнее чтоб динамически создать и сделать событие при нажатии на картинку(типа OnImgClick):

C++

//---------------------------------------------------------------------------
void __fastcall TForm1::OnBtnClick (TObject *Sender){
  TButton *m_btn = dynamic_cast<TButton*>(Sender);
  AnsiString S;
  for(int i=0;i<10;i++){
    S="but"+IntToStr(i);
    if(m_btn->Name == S.c_str()){ // реакция на нажатие определённой кнопки
      But[i].but->Width+=30;
      } // if
    } // for
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender){
for(int i=0;i<10;i++){
  But[i].but=new TButton(this);
  But[i].but->Parent=Form1;
  But[i].but->Name="but"+AnsiString(i);
  But[i].but->Caption="qwe"+AnsiString(i);
  But[i].but->Top=i*25+i*5;
  But[i].but->Left=50;
  But[i].but->Height=25;
  But[i].but->Width=75;
  But[i].but->OnClick = OnBtnClick; // присваиваем обработчик
  }
}

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.03.2008, 09:35	2
	ну так главное этим компонентам правильно родителя указать... 0

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	10.10.2008, 14:12	4
	руками прописываешь в заголовочнике формы Код void __fastcall OnBtnClick (TObject Sender); в .срр файле формы: Код void __fastcall OnBtnClick (TObject Sender) { TButton m_btn = dynamic_cast<TButton>(Sender); if (m_btn->Name == "чему то") // реакция на нажатие определённой кнопки ... ... } и при динамическом создании присваиваешь этот обработчик: Код TButton but=new TButton(this); ... ... ... but->OnClick = OnBtnClick; // присваиваем обработчик 1

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	15.10.2008, 12:29	6
	void __fastcall OnBtnClick (TObject *Sender); перенеси в секцию __published: 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	15.10.2008, 12:30	7
	elron, ну код какой-то мутный, там все делается проще, но тебе виднее, а ошибку исправить легко: Код void __fastcall TForm1::OnBtnClick (TObject Sender){ TButton m_btn = dynamic_cast<TButton*>(Sender); if(m_btn->Name == "but1"){ but->Width+=30; } } ты же в классе прописал прототип функции, но ее реализации нет, вот и линкер паникует... 1

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	15.10.2008, 12:34	8
	Сообщение от oxotnik void __fastcall OnBtnClick (TObject *Sender); перенеси в секцию __published: это тут ни при чем... 0

@elron 0 / 0 / 0 Регистрация: 10.10.2008 Сообщений: 5
	15.10.2008, 12:47	9
	всё работает)) ну всё, пришло моё время пасибо)) 0

@elron 0 / 0 / 0 Регистрация: 10.10.2008 Сообщений: 5
	24.10.2008, 13:49	10
	это.. а как сделать чтоб например при нажатии на кнопку она изменяла свои параметры? например при нажатии на кнопку qwe1 эта кнопка изменяла длину или ширину.. а то в исходнике изменяется только последняя созданная кнопка.. 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.10.2008, 14:41	11
	тебе просто на онклике надо анализировать, какую кнопку жали и ее параметры менять 0

	01.12.2008, 14:02