Pergunta : ScrollText em DialgBox? - Delphi

Olá! os peritos,
I têm um DialogBox e eu estou tentando adicionar ScrollText no formulário mas seu não se mover se eu não movo o rato, eu quero-o mover-se todo o tempo, mesmo se o usuário não deu nenhuma msg, o
here sou um código da amostra:


Ressource1.rc:class= " lineNumbers " >
1 do >
PROGRAM1 DIALOGEX 100 do id= " codeSnippet837174 " do >
1 do >


Project1.dpr
programa Project1;

usos
  Windows
  Mensagens;

 {$R Res \ Ressource1.res}
{função SetDlgItemText (hDlg: HWND; nIDDlgItem: Inteiro; lpString: PChar): BOOL; stdcall;
função DialogBox (hInstance: HINST; lpTemplate: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc): Inteiro;
função DialogBoxParam (hInstance: HINST; lpTemplateName: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Inteiro; stdcall;}

{função DialogBoxParam; user32 nome externo “DialogBoxParamA”;
função MessageBoxA; user32 nome externo “MessageBoxA”;
função SetDlgItemText; user32 nome externo “SetDlgItemTextA”;
função EndDialog; user32 nome externo “EndDialog”;}

Diálogo da função (HWnd, Msg, wParam, lParam: inteiro): inteiro; stdcall;
começar
  Resultado: = 1;
  se wParam = sc_close então EndDialog (HWnd, 1);
  Msg do caso de
    WM_INITDIALOG: 
       começar


       extremidade;

    WM_MOUSEMOVE: 
       Começar
            SetDlgItemText (HWND, 1000, PChar (de “texto Scrooling "));
       extremidade;

    WM_LBUTTONDOWN: {No clique da tecla esquerda do rato}
      Começar

      extremidade;

    WM_DESTROY:
      começar
      extremidade;

     Resultado outro: = 0;
  Extremidade;
extremidade;

começar
    DialogBox (0, “PROGRAM1”, 0, @Dialog);
extremidade.
a ajuda " desobstruída " de >


Any do class= de 

Regards.


class= do 











Resposta : ScrollText em DialgBox? - Delphi










Meu goof. Eu signifiquei usar uma variável da escala como a entrada.
 
 







1:
2:
3:
4:
5:





Função ForecastValue (rgValues como a escala) como o dobro
N não ofuscante como por muito tempo
n = rgValues.Cells.Count
ForecastValue = avalia (“TENDÊNCIA (” & rgValues.Address (external: =True) & “,” & (n + 1) & ")”) (1)
Função do fim


































Outras soluções
 

 
programming4us programming4us