如何让一个BorderStyle是bsNone的窗体同时又是可以用鼠标调节大小的? (20分)

  • 主题发起人 主题发起人 ynduanlian
  • 开始时间 开始时间
Y

ynduanlian

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI中这样写:
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;

我想请教,在C++Builder中,声明部分的这个“OVERRIDE”该怎么改写啊?
BCB中如何重载CreateParams?
void __fastcall TfrmMain::CreateParams(TCreateParams *Params)
{
TForm::CreateParams(*Params);
Params->Style=Params->Style | WS_BORDER | WS_SIZEBOX;
};
 
不用這麼煩吧...設form1.BorderIcon := [biSystemMenu] 就可以了..
 
用下面的代碼試一下..剛試過,效果還可以
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF( X > (Form1.Width -20)) and (Shift = [ssLeft]) then
begin
Form1.Width := x+2;
end;
IF( Y > (Form1.Height -20)) and (Shift = [ssLeft]) then
begin
Form1.Height := Y+2;
end;
end;
 
楼上的兄弟,我的方法更简洁啊,只是不知道在C++里面这个override该怎么写?
 
virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
 
明白了,我总是分不清C++中的“&” 和“&”
 
后退
顶部