Cuestión : ¿ScrollText en DialgBox? - Delphi

Hola los expertos,
I tienen un DialogBox y estoy intentando agregar ScrollText en la forma pero su mudanza si no muevo el ratón, quisiera que se moviera todo el tiempo, incluso si el usuario no dio ninguna msg, el
here soy un código de la muestra:


Ressource1.rc:class= " lineNumbers " >
1 del >
PROGRAM1 DIALOGEX 100, 100, 198, 87 del id= " codeSnippet837174 " del >
1 del >


Project1.dpr
programa Project1;

aplicaciones
  Windows
  Mensajes;

 {$R Res \ Ressource1.res}
{función SetDlgItemText (hDlg: HWND; nIDDlgItem: Número entero; el lpString: PChar): BOOL; stdcall;
función DialogBox (hInstance: HINST; lpTemplate: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc): Número entero;
función DialogBoxParam (hInstance: HINST; lpTemplateName: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Número entero; stdcall;}

{función DialogBoxParam; user32 nombre externo “DialogBoxParamA”;
función MessageBoxA; user32 nombre externo “MessageBoxA”;
función SetDlgItemText; user32 nombre externo “SetDlgItemTextA”;
función EndDialog; user32 nombre externo “EndDialog”;}

Diálogo de la función (HWnd, Msg, wParam, lParam: número entero): número entero; stdcall;
comenzar
  Resultado: = 1;
  si wParam = sc_close entonces EndDialog (HWnd, 1);
  Msg del caso de
    WM_INITDIALOG: 
       comenzar


       extremo;

    WM_MOUSEMOVE: 
       Comenzar
            SetDlgItemText (HWND, 1000, PChar (“texto de Scrooling "));
       extremo;

    WM_LBUTTONDOWN: {En tecleo del botón izquierdo del ratón}
      Comenzar

      extremo;

    WM_DESTROY:
      comenzar
      extremo;

     Resultado otro: = 0;
  Extremo;
extremo;

comenzar
    DialogBox (0, “PROGRAM1”, 0, @Dialog);
extremo.
la ayuda " clara " de >


Any del class= de 

Regards.


  
  class= del 





  
 
  
  



Respuesta : ¿ScrollText en DialgBox? - Delphi


  

 



 


Mi goof. Signifiqué utilizar una variable de la gama como la entrada.
 
                       

                       

         

           
             
1:
2:
3:
4:
5:


           		
           
             
Función ForecastValue (rgValues como gama) como doble
N dévil como de largo
n = rgValues.Cells.Count
ForecastValue = evalúa (“TENDENCIA (” y rgValues.Address (external: =True) y “,” y (n + 1) y ")”) (1)
Función del final
 
           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Otras soluciones
                                     

 
programming4us programming4us