private:
TButton* TrButton1;
void __fastcall TrButton1Click(TObject *Sender);
Новый компонент на основе TPanel
Привет всем! Создаю новый компонент на основе TPanel, динамически создаю на панели кнопку (Button). Нужно обработать событие OnClick этой кнопки. Вот часть кода программы, всё компилируется без ошибок, компонент устанавливается в палитру, но когда запускаю приложение - кнопка не работает.
Помогите кто чем может.
Unit.h
Unit.cpp
Помогите кто чем может.
Unit.h
Код:
Unit.cpp
Код:
__fastcall TTr::TTr(TComponent* Owner)
: TPanel(Owner)
{
TrButton1 = new TButton(this);
TrButton1->Left=56;
TrButton1->Top=56;
TrButton1->Caption="test";
TrButton1->Font->Style = TrButton1->Font->Style<<fsBold;
TrButton1->Parent=this;
}
void __fastcall TTr::TrButton1Click(TObject *Sender)
{
ShowMessage("OK");
}
: TPanel(Owner)
{
TrButton1 = new TButton(this);
TrButton1->Left=56;
TrButton1->Top=56;
TrButton1->Caption="test";
TrButton1->Font->Style = TrButton1->Font->Style<<fsBold;
TrButton1->Parent=this;
}
void __fastcall TTr::TrButton1Click(TObject *Sender)
{
ShowMessage("OK");
}
В конструктор добавь
//Вроде так
Да и по форуму поищи про динамическое создание компонент.
Код:
TrButton1->onClick=TrButton1Click;
Да и по форуму поищи про динамическое создание компонент.