1.
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pos:TPoint;
sx,sy:integer;
begin
pos.x:=X;
pos.y:=Y;
edit1.Text:=inttostr(pos.x)+','+inttostr(pos.y);
sx:=clienttoscreen(pos).x;
sy:=clienttoscreen(pos).y;
edit2.Text:=inttostr(sx)+','+inttostr(sy);
end;2.建议你用浮动窗体
form1.docksite:=true;
控件
button for example
button1.dragkind:=dkdock;
button1.dragmode:=dmautomatic;
3
richedit我不太清楚
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pos:TPoint;
sx,sy:integer;
begin
pos.x:=X;
pos.y:=Y;
edit1.Text:=inttostr(pos.x)+','+inttostr(pos.y);
sx:=clienttoscreen(pos).x;
sy:=clienttoscreen(pos).y;
edit2.Text:=inttostr(sx)+','+inttostr(sy);
end;2.建议你用浮动窗体
form1.docksite:=true;
控件
button for example
button1.dragkind:=dkdock;
button1.dragmode:=dmautomatic;
3
richedit我不太清楚
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货