1. Call dinâmica de procedimentos armazenados
sp_exec.parameters.clear;
sp_exec.procedureName: = 'sp_transto';
sp_exec.parameters.createParameter ('@Mailid', ftstring, pdinput, 50, MailID);
sp_exec.parameters.createParameter ('@resultado', ftinteger, pdOutput, 0, rowid);
sp_exec.execproc;
2. Exibir menu pop-up no canto inferior esquerdo do botão
var
XY: TPOint;
Começar
xy: = btnflow.clientorigin;
xy.y: = xy.y + btnflow.Height;
Windows.clientToscreen (hwnd_desktop, xy);
mmmenu.popup (xy.x, xy.y);
3. Mensagens do Windows