L
lunxiao
Unregistered / Unconfirmed
GUEST, unregistred user!
如下:
procedure TFrm_Main.Image2Click(Sender: TObject);
var
Send:TImage;
begin
Send:=Sender as TImage;
Send.Canvas.Pen.Mode:=pmNotXor;
Send.Canvas.Pen.Color:=clred;
Send.Canvas.Rectangle(0,0,Send.Picture.Width-1,Send.Picture.Height-1);
//故意 减1否则效果大不一样
end;
点击IMAGE后,在它图像周围画了个方形选择框,再点击一次则可以取消...可是我不用再点击,而是用代码,则该如何实现??
procedure TFrm_Main.Image2Click(Sender: TObject);
var
Send:TImage;
begin
Send:=Sender as TImage;
Send.Canvas.Pen.Mode:=pmNotXor;
Send.Canvas.Pen.Color:=clred;
Send.Canvas.Rectangle(0,0,Send.Picture.Width-1,Send.Picture.Height-1);
//故意 减1否则效果大不一样
end;
点击IMAGE后,在它图像周围画了个方形选择框,再点击一次则可以取消...可是我不用再点击,而是用代码,则该如何实现??
]
!]