摘要:简单的说就是取鼠标所在位置对应的窗口句柄?procedure TForm1.Timer1Timer(Sender: TObject);vara:TPoint; //用来存放坐标hw:HWND; //用来存放窗口句柄begin GetCursorPos(a); //取得鼠标坐标,并存放进a中 hw :
阅读全文
posted @ 2016-03-02 13:39
|
||
随笔分类 - delphi 图像 GDI+
摘要:简单的说就是取鼠标所在位置对应的窗口句柄?procedure TForm1.Timer1Timer(Sender: TObject);vara:TPoint; //用来存放坐标hw:HWND; //用来存放窗口句柄begin GetCursorPos(a); //取得鼠标坐标,并存放进a中 hw :
阅读全文
posted @ 2016-03-02 13:39
摘要:procedure TfrmstPostImageCollate.LoadCollateImage(AOrderID: integer);var mySql: string; node: TcxTreeListNode; cPhoto, cFullPhoto: string;begin ...
阅读全文
posted @ 2015-12-16 16:20
摘要:procedure TForm1.Button1Click(Sender: TObject);var jpg: TJPEGImage; // 要use Jpeg单元begin // 显示jpg大图片的方式 jpg := TJPEGImage.Create; jpg.LoadFromFile(getc...
阅读全文
posted @ 2015-12-15 17:38
摘要://显示图像var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create(Self.Canvas.Handle); img := TGPImage.Create('c:\temp\x.jpg'); g.DrawImage(img,10...
阅读全文
posted @ 2015-12-15 17:24
|
||