Frage : ScrollText in DialgBox? - Delphi

Hallo haben Experten,
I ein DialogBox und ich versuche, ScrollText auf der Form hinzuzufügen, aber sein Bewegen nicht, wenn ich nicht die Maus befördere, wünsche ich sie sich ständig bewegen, selbst wenn der Benutzer keine Msg gab,
here bin ein Beispielcode:


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

PROGRAM1 DIALOGEX 100, 100, 198, 87
ART DS_SYSMODAL | DS_MODALFRAME | DS_CENTER | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
UNTERTITEL „PROGRAM1“
SPRACHE LANG_FRENCH, SUBLANG_FRENCH
GUSS 10, „TAHOMA“
{
   "", 1000, STATIC, SS_CENTER STEUERN | 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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Programm Project1;

Gebrauch
  Windows
  Mitteilungen;

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

{Funktion DialogBoxParam; externer user32 Name „DialogBoxParamA“;
Funktion MessageBoxA; externer user32 Name „MessageBoxA“;
Funktion SetDlgItemText; externer user32 Name „SetDlgItemTextA“;
Funktion EndDialog; externer user32 Name „EndDialog“;}

Funktions-Dialog (HWnd, Msg, wParam, lParam: ganze Zahl): ganze Zahl; stdcall;
anfangen
  Resultat: = 1;
  wenn wParam = sc_close dann EndDialog (HWnd, 1);
  FallMsg von
    WM_INITDIALOG: 
       anfangen


       Ende;

    WM_MOUSEMOVE: 
       Anfangen
            SetDlgItemText (HWND, 1000, PChar („Scrooling Text "));
       Ende;

    WM_LBUTTONDOWN: {Auf Klicken des Mäuselinken Knopfes}
      Anfangen

      Ende;

    WM_DESTROY:
      anfangen
      Ende;

     Sonst Resultat: = 0;
  Ende;
Ende;

anfangen
    DialogBox (0, „PROGRAM1“, 0, @Dialog);
Ende.


Any Hilfe ist Appreceated,

Regards.

Antwort : ScrollText in DialgBox? - Delphi

Mein Schnitzer. Ich bedeutete, eine Streckenvariable als der Eingang zu verwenden.
1:
2:
3:
4:
5:

Funktion ForecastValue (rgValues als Strecke) als Doppeltes
Schwaches n als lang
n = rgValues.Cells.Count
ForecastValue = auswerten („TENDENZ (“ u. rgValues.Address (External: =True) u. „,“ u. (n + 1) u. ")“) (1)
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us