noch mehr statusbar bzw. tgauge

[__patrik]

moin, moin zusammen,

hat einer nen tipp wie ich text in meine progressbar bekomme, oder wie ich die tgauge in eine statusbar reinbekomme?
das mit:

Delphi-Quellcode:

  StatusBar1.Perform(SB_GETRECT, 1, integer(@R));
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.BoundsRect := r;

geht mit der tgauge leider net

mfg
patrik

[Stanlay Hanks]

Also eine Gauge bekommst du so in eine Statusbar:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Gauge1 do begin
Parent := StatusBar1; //Parent von Gauge ist Statusbar1
Left   := 3;
Height := StatusBar1.Height - (StatusBar1.Height div 3);
Top    := 4;
end;
end;

[Edit] hab den Code noch "verschönert", weil ich vergessen hab, das ganze mit with...do zu machen.

[__patrik]

danke

patrik