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