如何修改代码------为什么无法改变image的座标到左下角?

Question

本帖最后由 cowbo 于 2010-01-01 12:05:25 编辑

Answer 1

OK.procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
caption:= Format('X=%d; Y=%d', [X,Y]);  //座标end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  inherited;
    mydc:=GetDC(self.Handle);
    //self.Repaint;
    setmapmode(mydc,MM_ISOTROPIC); 
    SetWindowExtEx(mydc,ClientHeight,ClientHeight,nil); //座标区域 0
    SetViewportExtEx(mydc,0,-ClientHeight,nil);   //设定方向     
    SetViewportOrgEx(mydc,0,ClientHeight,nil); //设定原点     
    {SetViewportExtEx(mydc,Width,Height,nil); //设置设备场景视口范围
    SetViewportOrgEx(mydc,0,-Height,nil); //设置设备场景视口起点
    
    SetWindowExtEx(mydc,Width,Height,nil); //设置指定设备场景窗口范围
    SetWindowOrgEx(mydc,0,-Height,nil); //设置指定设备场景窗口起点 
                                             }
    TextOut(mydc,50,100,'This is a Test!',15);
    Windows.MoveToEx(mydc,0,0,nil);
    Windows.LineTo(mydc,50,100);    
end;