Вопрос : ScrollText в DialgBox? - Делфи

Здравствулте! специалисты,
I имеют DialogBox и я пытаюсь добавить ScrollText на форме но свой не двигать если я не двигаю мышь, то, я хочу ее двинуть все время, даже если потребитель не дал никакие msg,
here буду Кодим образца:


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


Project1.dpr
программа Project1;

пользы
  Windows
  Сообщения;

 {$R Res \ Ressource1.res}
{функция SetDlgItemText (hDlg: HWND; nIDDlgItem: Интежер; lpString: PChar): BOOL; stdcall;
функция DialogBox (hInstance: HINST; lpTemplate: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc): Интежер;
функция DialogBoxParam (hInstance: HINST; lpTemplateName: PChar;
  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Интежер; stdcall;}

{функция DialogBoxParam; внешнее user32 имя «DialogBoxParamA»;
функция MessageBoxA; внешнее user32 имя «MessageBoxA»;
функция SetDlgItemText; внешнее user32 имя «SetDlgItemTextA»;
функция EndDialog; внешнее user32 имя «EndDialog»;}

Диалог функции (HWnd, Msg, wParam, lParam: интежер): интежер; stdcall;
начните
  Результат: = 1;
  если wParam = sc_close после этого EndDialog, то (HWnd, 1);
  Msg случая 
    WM_INITDIALOG: 
       начните


       конец;

    WM_MOUSEMOVE: 
       Начните
            SetDlgItemText (HWND, 1000, PChar («текст Scrooling "));
       конец;

    WM_LBUTTONDOWN: {На щелчке левой кнопки мыши}
      Начните

      конец;

    WM_DESTROY:
      начните
      конец;

     Другой результат: = 0;
  Конец;
конец;

начните
    DialogBox (0, «PROGRAM1», 0, @Dialog);
конец.
помощью >


Any class= 

Regards.


class= 











Ответ : ScrollText в DialgBox? - Делфи










Мой goof. Я намеревался использовать перемеююый ряда как входной сигнал.
 
 







1:
2:
3:
4:
5:





Функция ForecastValue (rgValues как ряд) как двойник
Тусклый n как длиной
n = rgValues.Cells.Count
ForecastValue = оценивает («ТЕНДЕНЦИЯ (» & rgValues.Address (external: =True) & «,» & (n + 1) & ")») (1)
Функция конца


































Другие решения
 























  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    • 
    		

    

    
    		

    


    

    



  •  Шнур ошибки в блоке задвижки?
    • 
    		

    

    
    		

    


    

    



  •  сколько вариант сервера SQL на одной машине
    • 
    		

    

    
    		

    


    

    



  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    • 
    		

    

    
    		

    


    

    



  •  Активно директория DNS записывает вопрос
    • 
    		

    

    
    		

    


    

    



  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    • 
    		

    

    
    		

    


    

    



  •  Прокладчик OCE 9400 не начинает
    • 
    		

    

    
    		

    


    

    



  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    • 
    		

    

    
    		

    


    

    



  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    • 
    		

    

    
    		

    


    

    



  •  VB6 к VS2010 - консультации тренировки?
    •

     
    programming4us programming4us