获取Richedit字体

[siyuanyugang]

我想用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这样到是可行。上面的代码有错吗

[SonicX]

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

[siyuanyugang]

这个我试过，好象不管用