用DrawText函数画字时字体大小是根据什么来的？

Question

好像跟上下文没有关系。

Answer 1

在DRAWTEXT中各个参数说明如下：//by bluebilly(蓝色天使) 
Handle你写得是对的，第二个参数好象是PCHAR， 第三个是你所要输出字符的长度，第四个参数是在哪一个范围内输入上述文字，第五个参数是表示以什么样的文字排列方式进行输出，具体如下：
在我的例子中，变量h, r, txtStr为全局变量,你可以在此基础上试试：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);begin
  caption := inttostr(x)+':'+inttostr(y);
  r := Rect(x, y, x+200, y+200);
  DrawText(h, pchar(TxtStr), Length(TxtStr), r,  DT_LEFT);
 //TextOut(h, x, y, pchar('Example'), Length(txtstr));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  h := GetDc(Handle);
  txtStr := 'Example';
end;

Answer 2

能不能说清楚一点。不知道怎么应用CreateFontIndirect和SelectObject哦。