Halooo master2 delphii.. ada yg tau gak cara menjalankan komponen Gauge di status bar???? karena kalo naruhnya aja ga bisa mesti geser2 sendiri.. terus ada yg tau juga gak Cara membuat tulisan PROSSESING... berjalan2 ke samping semisal ketika gaugenya lagi running, tulisan porsessingnya juga running.. pro...se..sing...[gaya animasi] :shock: mohon bantuannya thnks..

dalam event oncreate main form :

gauge.parent := statusbar;
//letaknya terserah mau ditaruh dimana kirinya
gauge.left := 0   
gauge.top := 1;

dalam event ontimer1 :

var
 s,hasil : string;
 i : integer;
  begin
     s := 'Processing';
     hasil := '';
      for i := 1 to length(s) do
        begin
           sleep(1000);
           hasil := hasil + Copy(s,i,1);
           label1.caption := hasil;
        end;
   end;

bener gak nih code, lagi gak ada delphinya

source jvcl

//implementation
var
  Fblinking : Boolean;
  s : string;
  FBlinked,blink : Integer;
  Fsens : Boolean;
  FcurrentTitle : string;

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
 if FBlinking then
  begin
    // (rom) this is a bad implementation better try to manipulate
    // (rom) the WM_GETTEXT and WM_SETTEXT to the Form window
   if Form1.Caption = s then
      Form1.Caption := ''
   else
    begin
      Form1.Caption := s;
      Inc(FBlinked);
      if FBlinked >= Blink then
      begin
        FBlinking := False;
        FBlinked := 0;
      end;
    end;
  end
  else
  begin
    if FSens then
    begin
      if Length(FCurrentTitle) = Length(s) then
      begin
        FSens := False;
        if Blink > 0 then
          FBlinking := True;
      end
      else
       begin
        FCurrentTitle := FCurrentTitle + s[Length(FCurrentTitle) + 1];
        Form1.Caption := FcurrentTitle;
       end;
    end
    else
    if FCurrentTitle = '' then
      FSens := True
    else
     begin
      SetLength(FCurrentTitle, Length(FCurrentTitle) - 1);
      Form1.Caption := FcurrentTitle;
     end;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  s := 'Processing';
  FcurrentTitle := '';
  FBlinked := 0;
  Fsens := True;
  blink := 5;
end;

Ada contoh filenya gan?? ini saya coba semua ga ada yg berhasil nih scriptnya?? :(

masa sih, contohe besok, lagi gak bawa