seit einiger Zeit versuche ich in einer Statusbar eine Prossesbar zu packen.
aber das klappt nicht.
ich habe meine Foren durchsucht und diesen Code dabei gefunden auf:
http://www.delphi-forum.de/viewtopic.ph ... rogressbar" onclick="window.open(this.href);return false;
Code: Alles auswählen
procedure PutCtrlInPanel(wCtrl: TWincontrol; StatusBar: TStatusBar; PANEL_ID: Integer);
var
ARect: TRect;
begin
StatusBar.Perform(WM_USER + 10, PANEL_ID, Integer(@ARect));
wCtrl.Parent := StatusBar;
wCtrl.BoundsRect := ARect;
end;
@Christian
Jetzt nehme ich wieder "nur" code schnipsel und passe sie an, wie würde du denn bei einer sache vorgehen die du noch A: noch nie gemacht hast und B: wo der "schnipsel" nicht geht.
Edit1:
in ARect.left steht nur eine lange - zahl. wird also nicht installisiert bzw. mit werten belegt
