没有Canvas就不能画了么?苦恼中………… 有 handle就行啦,,,,,,,用winapi画,,,,,,,,, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1. 以窗口句柄0提取HDC: GetDC2. 创建一个Canvas3. 将Canvas.Handle=DC4. 随便画吧5. 释放Canvas6. 释放DC var MyCanvas: TCanvas;begin hwndMap:= MapNavigator.Handle; hdcMap:= GetDC(hwndMap); MyCanvas:= TCanvas.Create; MyCanvas.Handle:= hdcMap; MyCanvas.Pen.Color:= clRed; MyCanvas.Pen.Style:= psSolid;// MyCanvas.Pen.Mode:= pmXor; MyCanvas.Pen.Mode:= pmCopy; MyCanvas.Brush.Style:= bsClear; MyCanvas.Rectangle(10, 10, 100, 100); ReleaseDC(hwndMap, hdcMap);end;导航根据坐标变化自己实现 用TControlCanvas,关联控件就可以了!!!或者用Budi的方法,GetDC强制Draw即可。 Delphi ADOQuery或DBGriDEh组件的用法 我想通过一个判断语句调用form3里的数据送到form1或form2 关于一个字符串的问题 在线等 adoquery插入语句的问题,急,请高手帮忙! 郁闷,,新老朋友捧场。 delphi 调用问题。。。报错 如何用MDAC的最新版本 请求公式计算的思路。 delphi7的报表控件在哪里? 如何通过Form的Handle来创建一个TForm对象。 FireMonkey HD窗体没有DBgrid功能,用TStringGrid的话无DrawColumnCell,怎么改变单元格颜色呢? 很急的一个问题,请大家帮忙
2. 创建一个Canvas
3. 将Canvas.Handle=DC
4. 随便画吧
5. 释放Canvas
6. 释放DC
MyCanvas: TCanvas;
begin
hwndMap:= MapNavigator.Handle;
hdcMap:= GetDC(hwndMap); MyCanvas:= TCanvas.Create;
MyCanvas.Handle:= hdcMap;
MyCanvas.Pen.Color:= clRed;
MyCanvas.Pen.Style:= psSolid;
// MyCanvas.Pen.Mode:= pmXor;
MyCanvas.Pen.Mode:= pmCopy;
MyCanvas.Brush.Style:= bsClear;
MyCanvas.Rectangle(10, 10, 100, 100); ReleaseDC(hwndMap, hdcMap);
end;导航根据坐标变化自己实现
或者用Budi的方法,GetDC强制Draw即可。