K kytcw Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-01 #1 1.如何让窗体的4个角改变成圆滑的效果, 2.如何不修改窗体的Borderstyle属性使标题栏不可见 分不够再加.急!在线等
K kytcw Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-01 #2 1.如何让窗体的4个角改变成圆滑的效果, 2.如何不修改窗体的Borderstyle属性使标题栏不可见 分不够再加.急!在线等
D dawnsong Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-01 #3 procedure TForm1.FormCreate(Sender: TObject); var Rgn :HRGN; begin //无标题栏 SetWindowLong(Self.Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE)and(not WS_CAPTION)); //圆角矩形 rgn :=CreateRoundRectRgn(Self.Left,Self.Top,Self.Width,Self.Height,50,50); SetWindowRgn(Self.Handle,Rgn,True); end;
procedure TForm1.FormCreate(Sender: TObject); var Rgn :HRGN; begin //无标题栏 SetWindowLong(Self.Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE)and(not WS_CAPTION)); //圆角矩形 rgn :=CreateRoundRectRgn(Self.Left,Self.Top,Self.Width,Self.Height,50,50); SetWindowRgn(Self.Handle,Rgn,True); end;
K kytcw Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-01 #7 我找到了一解决办法了~ procedure TPortForm.FormCreate(Sender: Tobject); var hr :thandle; begin hr:=createroundrectrgn(3,30,width-2,height-2,20,20); setwindowrgn(handle,hr,true); end;
我找到了一解决办法了~ procedure TPortForm.FormCreate(Sender: Tobject); var hr :thandle; begin hr:=createroundrectrgn(3,30,width-2,height-2,20,20); setwindowrgn(handle,hr,true); end;
D dawnsong Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-01 #8 呵呵，看不见了？怪事 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Self.Perform(WM_SYSCOMMAND,SC_MOVE +1,0);//移动窗体的方法 ReleaseCapture; end;
呵呵，看不见了？怪事 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Self.Perform(WM_SYSCOMMAND,SC_MOVE +1,0);//移动窗体的方法 ReleaseCapture; end;
L liumao Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-31 #9 用控件吧?用个SKIN控件就可以了,推荐你用skinslicense
