to liaokuo: DExtraPack5 深度立宪是什么意思?是一本书还是?说具体点好吗?先谢了,我找他找的好辛苦呀。
到www.vclxx.org里下载DExtraPack5 深度立宪=深度历险
function Tform1.memopain:boolean; var MyCanvas: TControlCanvas; Begin MyCanvas:=TControlCanvas.Create; Mycanvas.control:=memo1;//想在memo1上作画 With Mycanvas do Begin //这里可以更改为你的作图程序 Brush.Color := clBtnFace; MoveTo ( 33, 0 ); Brush.Color := clWhite; LineTo ( 33, ClientHeight ); end; End
MEMO透明的背景怎么做?
DExtraPack5
深度立宪里有
DExtraPack5
深度立宪是什么意思?是一本书还是?说具体点好吗?先谢了,我找他找的好辛苦呀。
深度立宪=深度历险
var
MyCanvas: TControlCanvas;
Begin
MyCanvas:=TControlCanvas.Create;
Mycanvas.control:=memo1;//想在memo1上作画
With Mycanvas do
Begin
//这里可以更改为你的作图程序
Brush.Color := clBtnFace;
MoveTo ( 33, 0 );
Brush.Color := clWhite;
LineTo ( 33, ClientHeight );
end;
End
能给个例子吗?