A ANiDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-28 #3 笨办法： const CapStr = ' 滚动标题栏'; procedure TForm1.Timer1Timer(Sender: TObject); var WS: WideString; begin WS := Caption; if Length(WS) < 3 then Caption := CapStr else Caption := Copy(WS, 2, Length(WS)); end;
笨办法： const CapStr = ' 滚动标题栏'; procedure TForm1.Timer1Timer(Sender: TObject); var WS: WideString; begin WS := Caption; if Length(WS) < 3 then Caption := CapStr else Caption := Copy(WS, 2, Length(WS)); end;
K kaida Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-28 #7 procedure TForm1.Timer1Timer(Sender: TObject); var temp:string; begin Temp:=Application.Title; Temp:=Temp+Temp[1]; Temp:=Copy(Temp,2,length(temp)-1); Application.Title:=temp; Form1.Caption:=temp; end;
procedure TForm1.Timer1Timer(Sender: TObject); var temp:string; begin Temp:=Application.Title; Temp:=Temp+Temp[1]; Temp:=Copy(Temp,2,length(temp)-1); Application.Title:=temp; Form1.Caption:=temp; end;
