|
class TMyPanel : public TPanel
{
public:
__fastcall TMyPanel(TComponent* Owner);
void __fastcall Paint(void);
};
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Panel = new TMyPanel(this);
}
__fastcall TMyPanel::TMyPanel(TComponent* Owner):TPanel(Owner)
{
Parent = (TWinControl*)Owner;
}
void __fastcall TMyPanel::Paint(void)
{
// hhgfjhgjhgfjhgfjhgf
}
так чтоли? Но в таком случае панель все равно рисуется. Я конечно сделал наследника от TCustomControl. А как определить для него события mousedown, move, up?
|