1 >
программа Project1; пользы Windows Сообщения; {$R Res \ Ressource1.res} {функция SetDlgItemText (hDlg: HWND; nIDDlgItem: Интежер; lpString: PChar): BOOL; stdcall; функция DialogBox (hInstance: HINST; lpTemplate: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc): Интежер; функция DialogBoxParam (hInstance: HINST; lpTemplateName: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Интежер; stdcall;} {функция DialogBoxParam; внешнее user32 имя «DialogBoxParamA»; функция MessageBoxA; внешнее user32 имя «MessageBoxA»; функция SetDlgItemText; внешнее user32 имя «SetDlgItemTextA»; функция EndDialog; внешнее user32 имя «EndDialog»;} Диалог функции (HWnd, Msg, wParam, lParam: интежер): интежер; stdcall; начните Результат: = 1; если wParam = sc_close после этого EndDialog, то (HWnd, 1); Msg случая WM_INITDIALOG: начните конец; WM_MOUSEMOVE: Начните SetDlgItemText (HWND, 1000, PChar («текст Scrooling ")); конец; WM_LBUTTONDOWN: {На щелчке левой кнопки мыши} Начните конец; WM_DESTROY: начните конец; Другой результат: = 0; Конец; конец; начните DialogBox (0, «PROGRAM1», 0, @Dialog); конец. помощью >
1: 2: 3: 4: 5:
Функция ForecastValue (rgValues как ряд) как двойник Тусклый n как длиной n = rgValues.Cells.Count ForecastValue = оценивает («ТЕНДЕНЦИЯ (» & rgValues.Address (external: =True) & «,» & (n + 1) & ")») (1) Функция конца
