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