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