请问在DELPHI6中怎么实现控件的自由拖动 delphi edit如何利用回车控制光标移动
请问在DELPHI6中怎么实现控件的自由拖动?
procedure TForm1.Button1MouseDown(Sender: TObject Button: TMouseButton Shift: TShiftState X, Y: Integer)begin ReleaseCapture SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, SC_MOVE 1, 0)end
delphi edit如何利用回车控制光标移动
如果Edit控件比较多,可以这样:
Form1.KeyPreview设置成True。
procedure TForm1.FormKeyPress(Sender: TObject var Key: Char)
begin
if (key=#13) and (activecontrol is Tedit) then
begin
key:=#0
perform(wm_nextdlgctl,0,0)
end
end
Delphi的image控件可不可以通过Button来控制移动到指定区域
ProcedureTForm1.ButtonleftClick(Sender:TObject)beginImage1.left:=Image1.left-1endProcedureTForm1.ButtonRightClick(Sender:TObject)beginImage1.left:=Image1.left 1endProcedureTForm1.ButtonupClick(Sender:TObject)beginImage1.top:=Image1.top-1endProcedureTForm1.ButtonleftClick(Sender:TObject)beginImage1.top:=Image1.top 1end