Vraag : ScrollText in DialgBox? - Delphi

Hello hebben de Deskundigen,
I een DialogBox en ik probeer om ScrollText op de vorm toe te voegen maar zich zijn het bewegen niet als ik niet de muis bewegen, ik het me wil de hele tijd bewegen, zelfs als de gebruiker geen msg gaf,
here is een steekproefcode:


Ressource1.rc: 
1:
2:
3:
4:
5:
6:
7:
8:

PROGRAM1 DIALOGEX 100, 100, 198, 87
STIJL DS_SYSMODAL | DS_MODALFRAME | DS_CENTER | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
TITEL „PROGRAM1“
TAAL LANG_FRENCH, SUBLANG_FRENCH
DOOPVONT 10, „TAHOMA“
{
   CONTROLE "", STATISCHE 1000, SS_CENTER | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP, 39, 6, 126, 11 
}


Project1.dpr
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

programma Project1;

gebruik
  Vensters
  Berichten;

 {$R Onderzoek \ Ressource1.res}
{functie SetDlgItemText (hDlg: HWND; nIDDlgItem: Geheel; het lpString: PChar): BOOL; stdcall;
functie DialogBox (hInstance: HINST; lpTemplate: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc): Geheel;
functie DialogBoxParam (hInstance: HINST; lpTemplateName: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Geheel; stdcall;}

{functie DialogBoxParam; externe user32 naam „DialogBoxParamA“;
functie MessageBoxA; externe user32 naam „MessageBoxA“;
functie SetDlgItemText; externe user32 naam „SetDlgItemTextA“;
functie EndDialog; externe user32 naam „EndDialog“;}

De Dialoog van de functie (HWnd, Msg, wParam, lParam: geheel): geheel; stdcall;
begin
  Resultaat: = 1;
  als wParam = sc_close toen EndDialog (HWnd, 1);
  Geval Msg van
    WM_INITDIALOG: 
       begin


       eind;

    WM_MOUSEMOVE: 
       Begin
            SetDlgItemText (HWND, 1000, PChar („Tekst Scrooling“));
       eind;

    WM_LBUTTONDOWN: {Op Muis Verlaten knoopklik}
      Begin

      eind;

    WM_DESTROY:
      begin
      eind;

     Anders Resultaat: = 0;
  Eind;
eind;

begin
    DialogBox (0, „PROGRAM1“, 0, @Dialog);
eind.
hulp


Any is Appreceated,

Regards.

Antwoord : ScrollText in DialgBox? - Delphi

Mijn flater. Ik wilde een variabele van de Waaier als input gebruiken.
1:
2:
3:
4:
5:

Functie ForecastValue (rgValues als Waaier) zoals Dubbel
Schemerig n zoals lang
n = rgValues.Cells.Count
ForecastValue = evalueert („TENDENS (“ & externe rgValues.Address (: =True) & „,“ & (n + 1) & „)“) (1)
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us