안녕 하세요?

BacTeria 박종민입니다.

음... 라벨을 스크롤 한다???

이 경우엔 직접 코드로 구현해도 되지만 기존에 쓸만한 컴포넌트들이 많이 구현되어

있으니 그걸 이용하시는 것도 좋을 듯 싶습니다. 공부가 목적이 아니시라면...

개인적으론 이곳 자료실에도 있는 RX 라이브러리의 SecretPanel 컴포넌트를

추천합니다.

가로, 세로 방향으로 스크롤 모두 가능하고요. 속도 조절도 가능하고, 또...

그림 삽입도 가능 합니다.

더 자세한건 직접 써보심 되겠네요.

참! 한줄씩 화일에서 읽어 온다구 했는데요. 그건 직접 코딩 하셔야 겠네요.

이만... 청주에서 박종민...


PS. 아래 코드는 SecretPanel을 이용해 화일에서 한줄씩 읽어와 뿌려주는 간단한(?)
    코드입니다.
------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, RXCtrls;

type
  TForm1 = class(TForm)
    SecretPanel1: TSecretPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
  FH: TextFile;
  Str: TStringList;
  Temp: String;
begin
  Str := TStringList.Create;

  AssignFile(FH, 'C:\A.TXT');
  Reset(FH);

  while not Eof(FH) do
  begin
    ReadLn(FH, Temp);
    Str.Add(Temp);
  end;

  CloseFile(FH);

  i := 0;

  while i < Str.Count do
  begin
    Application.ProcessMessages;

    if not SecretPanel1.Active then
    begin
      SecretPanel1.Lines.Clear;
      SecretPanel1.Lines.Add(Str[i]);
      SecretPanel1.Active := True;
      Inc(i);
    end;
  end;

  Str.Free;
end;

end.