边框
//椭圆形
procedure TFrmMain.FormResize(Sender: TObject);
var hr :thandle;
begin
hr:=createroundrectrgn(0,0,width,height,20,20);
setwindowrgn(handle,hr,true);
end;
//Memo
procedure TForm1.FormShow(Sender: TObject);
begin
Memo1.Color:=Form1.Color;
Memo1.Align:=alClient;
Memo1.BorderStyle:=bsNone;
end;
相关文档(Relevant Entries)
Posted on July 6, 2006 3:39 PM
| Permalink | | | TrackBacks (0)
TrackBack URL for this entry:
http://www.wujianrong.com/mt-tb.cgi/3552
http://www.wujianrong.com/mt-tb.cgi/3552