PROGRAM1 DIALOGEX 100, 100, 198, 87 de l'id= " codeSnippet837174 " de >
1 de >
Project1.dpr
programme Project1 ;
utilisations
Windows
Messages ;
{recherche \ Ressource1.res de $R}
{fonction SetDlgItemText (hDlg : HWND ; nIDDlgItem : Nombre entier ; lpString : PChar) : BOOL ; stdcall ;
fonction DialogBox (hInstance : HINST ; lpTemplate : PChar ;
hWndParent : HWND ; lpDialogFunc : TFNDlgProc) : Nombre entier ;
fonction DialogBoxParam (hInstance : HINST ; lpTemplateName : PChar ;
hWndParent : HWND ; lpDialogFunc : TFNDlgProc ; dwInitParam : LPARAM) : Nombre entier ; stdcall ;}
{fonction DialogBoxParam ; user32 nom externe « DialogBoxParamA » ;
fonction MessageBoxA ; user32 nom externe « MessageBoxA » ;
fonction SetDlgItemText ; user32 nom externe « SetDlgItemTextA » ;
fonction EndDialog ; user32 nom externe « EndDialog » ;}
Dialogue de fonction (HWnd, Msg, wParam, lParam : nombre entier) : nombre entier ; stdcall ;
commencer
Résultat : = 1 ;
si wParam = sc_close puis EndDialog (HWnd, 1) ;
Msg de cas de
WM_INITDIALOG :
commencer
extrémité ;
WM_MOUSEMOVE :
Commencer
SetDlgItemText (HWND, 1000, PChar (« texte de Scrooling ")) ;
extrémité ;
WM_LBUTTONDOWN : {Sur le clic de bouton gauche de souris}
Commencer
extrémité ;
WM_DESTROY :
commencer
extrémité ;
Résultat d'autre : = 0 ;
Extrémité ;
extrémité ;
commencer
DialogBox (0, « PROGRAM1 », 0, @Dialog) ;
extrémité.
l'aide " claire " de >
Any de class= de |
