我刚学 Delphi ，难道就没人帮我了么？

Question

delphi本身有声明这个函数啊？

Answer 1

delphi已经声明这个函数了
Windows.pas 声明如下
interface
function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; stdcall;implementation
function DrawEdge; external user32 name 'DrawEdge';

Answer 2

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;