张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  delphi 图像 GDI+

摘要:简单的说就是取鼠标所在位置对应的窗口句柄?procedure TForm1.Timer1Timer(Sender: TObject);vara:TPoint; //用来存放坐标hw:HWND; //用来存放窗口句柄begin GetCursorPos(a); //取得鼠标坐标,并存放进a中 hw : 阅读全文

posted @ 2016-03-02 13:39 ╰★张志峰★╮ 阅读(2237) 评论(0) 推荐(0)

摘要:procedure TfrmstPostImageCollate.LoadCollateImage(AOrderID: integer);var mySql: string; node: TcxTreeListNode; cPhoto, cFullPhoto: string;begin ... 阅读全文

posted @ 2015-12-16 16:20 ╰★张志峰★╮ 阅读(496) 评论(1) 推荐(1)

摘要:procedure TForm1.Button1Click(Sender: TObject);var jpg: TJPEGImage; // 要use Jpeg单元begin // 显示jpg大图片的方式 jpg := TJPEGImage.Create; jpg.LoadFromFile(getc... 阅读全文

posted @ 2015-12-15 17:38 ╰★张志峰★╮ 阅读(870) 评论(0) 推荐(0)

摘要://显示图像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 ╰★张志峰★╮ 阅读(401) 评论(0) 推荐(0)