@@@@@@@@怎样设置文本属性,如:字体,字号、粗、斜等。请贡献你的一份力量吧，多谢！！

Question

我用windows API的TextOut()来输出文本，想改变如字体这一类的属性，请多多指导。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  DC:HDC;
  Font:TFont;
begin
  Font:=Tfont.Create;
  dc:=GetWindowDC(form1.Handle);
  Font.Size:=32;
  Font.Name:='宋体';
  SelectObject(DC,Font.Handle);
  textout(Dc,10,10,'aaaaaaaa',8);
  font.Free;
  Releasedc(Handle,DC);
end;

Answer 2

windows api 
CreateFont

Answer 3

多谢warmworm(warmworm)，我也解决。

Answer 4

warmworm(warmworm)抱歉我给错了,~_~