title image


Smiley ein Beispiel ...
... das hier vor kurzem vorgestellt wurde:



uses ..., CommCtrl, ...;



procedure TForm1.FormShow(Sender: TObject);

var r: TRect;

begin

  //Größe des 1. Panels ermitteln

  // 0 = erstes Panel der Statusbar; 1 = zweites Panel usw.

  StatusBar1.Perform(SB_GETRECT, 0, integer(@R));

  ProgressBar1.Parent := StatusBar1;

  ProgressBar1.BoundsRect := r;

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: