program Project1; bruk Windows Meddelanden; {$R Res \ Ressource1.res} {fungera SetDlgItemText (hDlg: HWND; nIDDlgItem: Heltal; lpString: PChar): BOOL; stdcall; fungera DialogBox (hInstance: HINST; lpTemplate: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc): Heltal; fungera DialogBoxParam (hInstance: HINST; lpTemplateName: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Heltal; stdcall;} {fungera DialogBoxParam; utsidan user32 namnger ”DialogBoxParamA”; fungera MessageBoxA; utsidan user32 namnger ”MessageBoxA”; fungera SetDlgItemText; utsidan user32 namnger ”SetDlgItemTextA”; fungera EndDialog; utsidan user32 namnger ”EndDialog”;}, Fungera dialogen (HWnd, msgen, wParam, lParam: heltal): heltal; stdcall; börja Resultat: = 1; om wParam = sc_close därefter EndDialog (HWnd, 1); FallMsg av WM_INITDIALOG: börja avsluta; WM_MOUSEMOVE: Börja SetDlgItemText (HWND, 1000, PChar (”Scrooling text”)); avsluta; WM_LBUTTONDOWN: {På den lämnade musen knäppas klickar}, Börja avsluta; WM_DESTROY: börja avsluta; Annat resultat: = 0; Avsluta; avsluta; börja DialogBox (0, ”PROGRAM1”, 0, @Dialog); avsluta. hjälp för >

Any för <-/pre>

Fråga : ScrollText i DialgBox? - Delphi

Hälsningexperter,
I har en DialogBox och I-förmiddagen som är pröva som tillfogar ScrollText på bilda, men dess inte röra, om flyttningen för I inte musen, mig önskar den till flyttningen hela tiden, om även användaren inte gav några msg,
here är en ta prov kodifierar:


Ressource1.rc:för class=" codeSnippet " för 
1 för >PROGRAM1 DIALOGEX 100, 100, 198, 87 för id= " codeSnippet837174 " för >
1 för >


Project1.dpr

Regards.

  
  " klar " 



  
 
 
  



Svar : ScrollText i DialgBox? - Delphi


  

 



 


Min goof. Jag betydde att använda en spännavariabel som mata in.
 
                       

                       

         

           
             
1:
2:
3:
4:
5:


           		
           
             
Fungera ForecastValue (rgValues som spänner) som dubbelt
Dunkelt n som Long
n = rgValues.Cells.Count
ForecastValue = utvärderar (”TRENDEN (” & rgValues.Address (utsida: =True) & ”,” & (n + 1) & ”)”) (1)
Avsluta fungerar
 
           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Andra lösningar
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    

                  

                  

                  
                         		

                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         
      


            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us