获取Richedit字体

Question

我想用GetTextMetrics函数动态获取RichEdit的字体情况
procedure TForm1.Button1Click(Sender: TObject);
var
  aCanvas:TCanvas;
  hd:HDC;
  tm:TEXTMETRIC;
begin
  aCanvas:=TCanvas.Create;
  aCanvas.Handle:=GetDC(RichEdit1.Handle);
  GetTextMetrics(aCanvas.Handle,tm);
  showmessage(inttostr(tm.tmHeight));
end;
每次获得的值都是13，更改font后也不管用
对于Form这样到是可行。上面的代码有错吗

Answer 1

貌似直接GetDC就行了
GetTextMetrics(GetDC(RichEdit1.Handle),tm);