가르쳐 주셔서 고마운데요 조금더 자세히 가르쳐주세요.

아직 너무나 초보랍니다.

소스를 가르쳐 주시만 고맙겠네요..

다시 한번 부탁드릴께요.

지니 wrote:

> 가르쳐 주셔서 고마운데요 조금더 자세히 가르쳐주세요.

> 아직 너무나 초보랍니다.

> 소스를 가르쳐 주시만 고맙겠네요..

> 다시 한번 부탁드릴께요.





저도 초보인데 되는 것같아 적어봅니다.



var

Form1: TForm1;

count: Integer;



const

msgstr=(' This is a Marquee Test!');



implementation



{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);

var

s:String;

begin

s:=msgstr;

if count>=Length(msgstr) then begin

count:=0;

end

else begin

delete(s,1,count);

inc(count);

end;

StatusBar1.Panels.Items[2].Text:= s;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

count:=0;

Timer1.Enabled:= True;

end;



도움이 됐으면 좋겠군요.

> 지니 wrote:



가르쳐 주셔서 무지 무지 고맙습니다.

그런데 다시한번 도움을 청합니다.

한글을 한자씩 지우려니깐 글자가 깨지는데 그것 좀 해결해 주세요.

만일 문자가 '첫번째 리포트입니다!!' 라고 할때

글자와 빈 공백을 어떻게 처리해야 되는지 모르겠습니다.

부탁드릴께요...