Questione : ScrollText in DialgBox? - Delfi

Ciao gli esperti, il
I hanno un DialogBox e sto provando ad aggiungere ScrollText sulla forma ma relativo non muovermi se non sposto il mouse, lo voglio muovermi continuamente, anche se l'utente non ha dato alcuni msg,
here sono un codice del campione:


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


Project1.dpr
programma Project1;

usi
  Windows
  Messaggi;

 {ricerca \ Ressource1.res di $R}
{funzione SetDlgItemText (hDlg: HWND; nIDDlgItem: Numero intero; lpString: PChar): BOOL; stdcall;
funzione DialogBox (hInstance: HINST; lpTemplate: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc): Numero intero;
funzione DialogBoxParam (hInstance: HINST; lpTemplateName: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Numero intero; stdcall;}

{funzione DialogBoxParam; user32 nome esterno “DialogBoxParamA„;
funzione MessageBoxA; user32 nome esterno “MessageBoxA„;
funzione SetDlgItemText; user32 nome esterno “SetDlgItemTextA„;
funzione EndDialog; user32 nome esterno “EndDialog„;}

Dialogo di funzione (HWnd, Msg, wParam, lParam: numero intero): numero intero; stdcall;
cominciare
  Risultato: = 1;
  se wParam = sc_close allora EndDialog (HWnd, 1);
  Msg di caso di
    WM_INITDIALOG: 
       cominciare


       estremità;

    WM_MOUSEMOVE: 
       Cominciare
            SetDlgItemText (HWND, 1000, PChar (“testo di Scrooling "));
       estremità;

    WM_LBUTTONDOWN: {Sullo scatto del tasto di sinistra del mouse}
      Cominciare

      estremità;

    WM_DESTROY:
      cominciare
      estremità;

     Risultato altro: = 0;
  Estremità;
estremità;

cominciare
    DialogBox (0, “PROGRAM1„, 0, @Dialog);
estremità.
l'aiuto " libero " di >


Any del class= di 

Regards.


  
  class= del 





  
 
  
  



Risposta : ScrollText in DialgBox? - Delfi


  

 



 


Il mio goof. Ho significato usare una variabile della gamma come l'input.
 
                       

                       

         

           
             
1:
2:
3:
4:
5:


           		
           
             
Funzione ForecastValue (rgValues come gamma) come doppio
N fioca come lungamente
n = rgValues.Cells.Count
ForecastValue = valuta (“TENDENZA („ & rgValues.Address (external: =True) & “,„ & (n + 1) & ")„) (1)
Funzione di conclusione
 
           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Altre soluzioni
                                     

 
programming4us programming4us