procedure TForm1.Button3Click(Sender: TObject);
var
rect: TRect;
begin
rect.Left := 100;
rect.Top := 100;
rect.Right := 200;
rect.Bottom := 200;
DrawText(Canvas.Handle, 'Ha Ha Ha', 7, rect, 0);
DrawEdge(Form1.Canvas.Handle, rect, EDGE_SUNKEN, BF_RECT);
end;
var
rect: TRect;
begin
rect.Left := 100;
rect.Top := 100;
rect.Right := 200;
rect.Bottom := 200;
DrawText(Canvas.Handle, 'Ha Ha Ha', 7, rect, 0);
DrawEdge(Form1.Canvas.Handle, rect, EDGE_SUNKEN, BF_RECT);
end;
那行DrawText没用(测试HDC用的),其余的看一下API帮助,有许多参数,有的参数可能画不出来,多试几个参数。