Delphi使用方法

1.存儲過程動慴調用
    sp_exec.parameters.clear;
    sp_exec.procedurename := 'sp_transto';
    sp_exec.parameters.createparameter('@mailid', ftstring, pdinput, 50, mailid);
    sp_exec.parameters.createparameter('@result', ftinteger, pdoutput, 0, rowid);
    sp_exec.execproc;
2.在按鈕的左下角顯示彈出式菜單
var
  xy: tpoint;
begin
  xy := btnflow.clientorigin;
  xy.y := xy.y + btnflow.height;
  windows.clienttoscreen(hwnd_desktop, xy);
  mmmenu.popup(xy.x, xy.y);
3.windows消息