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

|