1,183
社区成员
发帖
与我相关
我的任务
分享
var TheRect: TRect;
k:integer;
begin
Image1.Picture.LoadFromFile(FileName1);
TheRect := Rect(X1,Y1,X2,Y2);
Image1.Canvas.Brush.Color := clwhite;
Image1.Canvas.FrameRect(TheRect);
Image1.Picture.SaveToFile(FileName2);
end;
大致如此。