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