[SOLVED] Suppressing default actions of TButtonPanel

[egsuh]

I'd like to use TButtonPanel, but not using the default actions of Close, OK, and Cancel. Instead, I'd like to change the actions through OnClick event handler. How can I do it?

[wp]

After selecting the ButtonPanel, go to page Events of the Object Inspector. Here you see, in gray, the individual buttons. Open these nodes (by clicking at the symbol in the left column), and you have access to the OnClick events. Likewise, on the Properties page, you can get access to the individual properties of these buttons so that you can change captions or icons.

[egsuh]

After selecting the ButtonPanel, go to page Events of the Object Inspector. Here you see, in gray, the individual buttons. Open these nodes (by clicking at the symbol in the left column), and you have access to the OnClick events.

I did. I wrote OnClick event of Close button, but when I press the button, the form simply closes.

[wp]

Not accessible at designtime, but you could change the Kind of the CloseButton in the OnCreate event of the form:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   ButtonPanel1.CloseButton.Kind := bkCustom;  // requires unit "Buttons" in the uses clause
4. end;

[egsuh]

ButtonPanel1.CloseButton.Kind := bkCustom;  // requires unit "Buttons" in the uses clause

I see. Now it works as I intend. Thank you for your help.