学过微积分吗?
道理很简单,剪切任意图形,还是是用矩形拼出来的
道理很简单,剪切任意图形,还是是用矩形拼出来的
解决方案 »
- XE BUG?
- YY群里面给我笑翻在地表情的接分了!
- 如何把一串数据读进一个结构体变量里面?
- FastReport 调用不同的数据集?
- 好书推荐
- 请问installshield中怎样打包那些需要注册的ActiveX和com控件(即在安装时不需要另外注册那些控件)?
- 打开程序报错:Error Creating form:Invalid Stream format,请高手相助
- 谁对ClientDataSet熟悉,进来看看!
- 取出dbgrid中的一条记录
- 我买了一本《DELPHI 5.0开发人员指南>>,我为大家做什么??(的确是一本难得的好书)
- delphi有宏替换的功能吗?能够在程序运行时动态指定按纽的OnClick事件关联的Procedure吗?而且Procedure的名字可以编辑!
- 关于ODBC??
Form1: TForm1;
x0,y0:integer;
down,resized:Boolean;implementation{$R *.DFM}procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
x0:=x;
y0:=y;
if (x>Image1.Width-10)or(y>image1.Height-10) then begin
Image1.Cursor:=crSize;
resized:=true;
end else begin
Image1.Cursor:=crDefault;
down:=TRUE;
end;
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if x>Image1.Width-10 then begin
Image1.Cursor:=crSize;
end else begin
Image1.Cursor:=crDefault;
end;
if down then begin
Image1.Left:=Image1.Left+x-x0;
Image1.top:=Image1.top+y-y0;
end;
if resized then begin
Image1.Width:=Image1.Width+x-x0;
Image1.Height:=Image1.Height+y-y0;
x0:=x;y0:=y;
end;
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
down:=False;
resized:=False;
end;