в runtime сформировать button

[BlackFox]

Как в runtime сформировать button/bitbtn/speedbutton и прописать ему обработку OnClick?
XE5/CB6

[POV]

Код

TButton *b = new TButton(Form1);
b->Parent = Form1;
b->OnClick = Обработчик;
 
void __fastcall TForm1::Обработчик(TObject *Sender)
{
 
}
 
 
 
 

[BlackFox]

обязательно void __fastcall TForm1::Обработчик(TObject *Sender)?
а просто void Обработчик() поймет? Ну то есть левую функцию (не метод формы)

[POV]

Нет. Там скрытый параметр есть - объект родительского класса.
Класс может быть любой, не обязательно формы. Даже структура прокатит.

[volvo877]

Нет

Чего это "нет"? Если нужно - можно и обычную функцию:

Код

void __fastcall Обработчик(void *This, TObject *Sender)
{
    ShowMessage("Test");
}
 
// ...
 
    TButton *b = new TButton(this); // Form1
    b->Parent = this; // Form1
 
    TMethod Method;
    Method.Data = this; // можно - просто 0, если не нужен указатель на this, но тогда нельзя к параметру This обратиться в обработчике
    Method.Code = Обработчик;
    b->OnClick = *(TNotifyEvent*)&Method;
}

[POV]

   TMethod Method;
    Method.Data = this; // можно - просто 0, если не нужен указатель на this, но тогда нельзя к параметру This обратиться в обработчике
    Method.Code = Обработчик;
    b->OnClick = *(TNotifyEvent*)&Method;

Забавно! )) Но тем не менее этот самый скрытый параметр появляется.