Pytanie : ScrollText W DialgBox? - Delphi

Cześć Ekspert,
I mieć DialogBox i i próbować ScrollText na the forma ale swój nie chodzenie jeżeli i nie ruszać się the mysz, i chcieć ono cały czas, nawet jeśli the użytkownik dać jakaś msg,
here być próbka kod:


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

PROGRAM1 DIALOGEX 100, 100, 198, 87
STYLOWY DS_SYSMODAL | DS_MODALFRAME | DS_CENTER | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
PODPIS "PROGRAM1"
JĘZYK LANG_FRENCH, SUBLANG_FRENCH
CHRZCIELNICA 10, "TAHOMA"
{
   KONTROLNY "", 1000, ŁADUNEK ELEKTROSTATYCZNY, 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:

program Project1;

uses
  Windows
  Wiadomość;

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

{funkcja DialogBoxParam; external user32 imię "DialogBoxParamA";
funkcja MessageBoxA; external user32 imię "MessageBoxA";
funkcja SetDlgItemText; external user32 imię "SetDlgItemTextA";
funkcja EndDialog; external user32 imię "EndDialog";}

Funkcja Dialog (HWnd, Msg, wParam, lParam: integer): integer; stdcall;
zaczynać
  Rezultat: = (1);
  jeżeli wParam = sc_close Wtedy EndDialog (HWnd, 1);
  Skrzynka Msg
    WM_INITDIALOG: 
       zaczynać


       końcówka;

    WM_MOUSEMOVE: 
       Zaczynać
            SetDlgItemText (HWND, 1000, PChar ("Scrooling Tekst "));
       końcówka;

    WM_LBUTTONDOWN: {Na Mysz Lewy guzik stuknięcie}
      Zaczynać

      końcówka;

    WM_DESTROY:
      zaczynać
      końcówka;

     Inny Rezultat: = (0);
  Końcówka;
końcówka;

zaczynać
    DialogBox ((0), "PROGRAM1", (0), @Dialog);
końcówka.


Any Pomoc być Appreceated,

Regards.

Odpowiedź : ScrollText W DialgBox? - Delphi

Mój goof. I znaczyć Pasmo zmienna jako the wkład.
(1):
2:
3:
4:
5:

Funkcja ForecastValue (rgValues Pasmo) Kopia
Ciemnawy n Długo
n = rgValues.Cells.Count
ForecastValue = Oceniać ("TREND (" & rgValues.Address (external: =True) & "," & (n + 1) & ")") (1)
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us