Y
ynduanlian
Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI中这样写可以重载CreateParam方法:
……声明部分:
procedure CreateParams(var Params: TCreateParams);override;
……
procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or WS_BORDER or WS_SIZEBOX;
end;
在BCB中怎么实现类似的重载啊?
……声明部分:
procedure CreateParams(var Params: TCreateParams);override;
……
procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or WS_BORDER or WS_SIZEBOX;
end;
在BCB中怎么实现类似的重载啊?