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消息