各位大侠请帮忙！

[guanjing123321123321]

我想用delphi写一个公告栏，是可以滚动的那种。只要文字就可以，麻烦大家帮一下忙。多谢！！！

[yct0605]

你的邮箱好像有问题吧，发不了东西

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

var
  l1, l2: Tstringlist;
  i, j: integer;
  T1: array[0..5] of string;
  t2: array[0..14] of string;
  rect: Trect;
begin
  l1 := Tstringlist.Create;
  l2 := Tstringlist.Create;
  try
    l1.LoadFromFile('1.txt');
    l2.LoadFromFile('2.txt');
    for i := 1 to 5 do
      T1[i] := l1[i];
    for j := 0 to 14 do
      t2[j] := l2[j];
    with Image1.Canvas do
    begin
      rect.Left := 0;
      rect.Top := 0;
      rect.Right := Image1.Width;
      rect.Bottom := Image1.Height;
      brush.Color := clblack;
      fillrect(rect);
      pen.Color := clGreen;


      MoveTo(2, 2);
      LineTo(2, 240);
      MoveTo(102, 2);
      LineTo(102, 242);
      MoveTo(202, 2);
      LineTo(202, 242);
      MoveTo(302, 2);
      LineTo(302, 242);
      MoveTo(402, 2);
      LineTo(402, 242);
      MoveTo(502, 2);
      LineTo(502, 242);
      Font.Color := clred;
      TextOut(35, 15, T1[1]);
      TextOut(130, 15, T1[2]);
      TextOut(235, 15, T1[3]);
      TextOut(330, 15, T1[4]);
      TextOut(430, 15, T1[5]);

      MoveTo(2, 2);
      LineTo(503, 2);
      MoveTo(2, 42);
      LineTo(503, 42);
      MoveTo(2, 82);
      LineTo(503, 82);
      MoveTo(2, 122);
      LineTo(503, 122);
      MoveTo(2, 162);
      LineTo(503, 162);
      MoveTo(2, 202);
      LineTo(503, 202);
      MoveTo(2, 242);
      LineTo(503, 242);

      Font.Color := clBlue;
      TextOut(35, 60, t2[0]);
      TextOut(140, 60, t2[1]);
      TextOut(245, 60, t2[2]);
      TextOut(325, 60, t2[3]);
      TextOut(430, 60, t2[4]);

      TextOut(35, 100, t2[5]);
      TextOut(140, 100, t2[6]);
      TextOut(245, 100, t2[7]);
      TextOut(325, 100, t2[8]);
      TextOut(430, 100, t2[9]);

      TextOut(35, 140, t2[10]);
      TextOut(140, 140, t2[11]);
      TextOut(245, 140, t2[12]);
      TextOut(325, 140, t2[13]);
      TextOut(430, 140, t2[14]);
    end;
  finally
    l1.free;
    l2.free;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.

[yct0605]

给你一段在image上面画表格和文字的代码！

[guanjing123321123321]

实在抱歉啊，我那个邮箱过期了，发到[e-mail]里面吧，麻烦你了，谢谢啊

[bdmh]

用raize系列控件吧,里面 有这种控件,不必自己写了

[lovelymelon]

这个有很多方法：
1：在scroll中用label；
2：用listbox；
3：用memo，但不允许memo编辑
等等吧。

[sanguomi]

自己写吧， 用画刷画出来吧

[bdmh]

可以根据公告条数用canvas画,其实有时自画会更方便,好控制

[guanjing123321123321]

我其实是想问一下什么地方有源码，我是初学者 ，想照着一个东西写。因为没有什么思路。还请大家帮忙，我的邮箱是[e-mail], Thank you very much!!!

[genispan]

用Raize控件里面的RzMarqueeStatus 直接指定值就可以了

[genispan]

你如果要自己写 可以设置一个panel 然后用textout显示字体 每次显示在不同的坐标 然后重画panel的canvas

[guanjing123321123321]

顶

[sanguomi]

8楼的该写个公式的

[starluck]

俺來學習學習

[kye_jufei]

重画panel的canvas

[ahjoe]

最好还是自己画，按自己需要的效果写。

[yc_8301]

在vc里做过，不过很简单，就是如楼上几位前辈所说的，
使用重画，在重画的时候重新定位文字的坐标，可以使用定时器。
LZ可以自己尝试做一下，很简单！