大哥大姐姐们，帮帮小妹吧……

Question

我觉得按纽的形状、颜色都不好看  怎么改？
还有   如何让文字显示走马灯效果？ 

Answer 1

重载 WM_DRAWITEM 消息吧，想怎么画，就怎么画！

Answer 2

界面做那么花干什么啊？普通的不是很好吗？自己找找第三方控件吧。ABC等都可以啊。

Answer 3

zhoutian618(秦失其鹿，天下共逐，唯胜者得鹿而割 回复人： zhoutian618(秦失其鹿，天下共逐，唯胜者得鹿而割之)  
谢谢您~！  还是你好  我总共问了三个问题  你回答了两个   谢谢 谢谢 谢谢……

Answer 4

走马灯效果我做过。就是修改状态栏的字符串
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  if Length( CurStr ) > 0 then
    CurStr := Copy( CurStr, 2, Length( CurStr ) - 1 )
  else begin
    CurStr := BlankN( ( frm_main.Width - Statusbar1.Panels[0].Width - StatusBar1.Panels[1].Width )
                         div 7 )
             + StatusStr;
  end;
  StatusBar1.Panels[2].Text := CurStr;
end;function BlankN(N: Integer): String;
var
  i: Integer;
begin
  for i := 1 to N do
  begin
    Result := Result + ' ';
  end;
end;procedure TfrmMain.FormCreate(Sender: TObject);
begin
  CurStr := '';
  Statusbar1.Font := Font;{必须这样写，否则状态栏字体不正常}
end;

Answer 5

楼上的楼上说得很对，其实界面没有必要搞得很花稍，关键在于协调、美观，有时简洁的界面也是一种美，当然，更重要的是内在的东西－－程序，尤其对初学者来说，界面是次要的，程序写好了，比什么都重要。况且windows的按纽大家都用惯了，有时你一改大家反而不习惯。走马灯的效果，原理大致是将image中的一段文字通过不停地（好象要用到timer)改变它的坐标,我好象在哪儿见过这个程序，找找吧

Answer 6

补充：const StatusStr='欢迎使用我的软件';放在全局变量的地方。

Answer 7

谁知道有第三方控件下载吗？？我想要cx的控件，如cxgrid,cxTextEdit等！！
谢了各位

Answer 8

试过了，哈哈，动起来一格一格的。到了边缘的时候变成乱码了，怎么解决一下呢。
DELPHI对中文支持一直就不怎么好。

Answer 9

用平滑特效字体控件包AAFont，http://www.cnvcl.org有下载，免费的有源码。

Answer 10

用WideString就不会出现乱码了。
呵呵。

Answer 11

var CurStr : WideString;

Answer 12

我觉得用panel就可以呀，在panel的click事件里面添加 代码，然后在panel里面添加一个label组件，让它在一定的范围里面运动，当然你可以把panel的curor改变呀。

Answer 13

seatu((三分像狗 七分像人)) :能不能写一下代码

Answer 14

一个简单的例子一个label,一个Timer,timer的Interval设成100，利于画面的平滑，自己再调整看看吧下面是timer的事件处理
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        label1.Left := label1.left - 2;//前进的速度，根据需要调整
        if label1.Left < 0 then     //0为label的左边届，根据需要调整
                label1.Left := 300;  //300为label移动的右边界，根据需要调整
end;其它的效果就自己去考虑了
比如把label放到一个panel上之类的

Answer 15

用TIMER不管时间间隔再怎么小都会闪的！
不闪的才是健康的！
用DRAWTEXT（）

Answer 16

junkple(谢锐) :高手啊，谢谢您，我试试啊，成功了就给分！

Answer 17

junkple(谢锐) ：很遗憾……我是想让字幕在Panel上移动，而你的程序是让它在Panel之外移动，怎么改？

Answer 18

delphi_xizhousheng(西周生) 用TIMER不管时间间隔再怎么小都会闪的！
不闪的才是健康的！
用DRAWTEXT（）您说的也很有道理啊，但是能不能说的更清楚一点呢  谢谢您了

Answer 19

我有界面控件，把Email地址告诉我。

Answer 20

去这个网址里下载第三方控件吧：
http://mydelphi.8u8.com
全部免费的哟！

Answer 21

用 SpeedButton，可以有图片了 
把 Label 放在 Panel 上，用定时器改变 Label 的位置

Answer 22

delphi_xizhousheng(西周生) ：谢谢您的代码  我已经把它移植到我的程序中了  可以运行  但是还是有点闪  而且  我没完全明白程序是怎么一回事   您能给我讲清楚 就给分

Answer 23

delphi_xizhousheng(西周生) ：谢谢您的代码  我已经把它移植到我的程序中了  可以运行  但是还是有点闪  而且  我没完全明白程序是怎么一回事   您能给我讲清楚 就给分你是不是不想要分了？？

Answer 24

IORILI(眼镜@_@) :恩  试了一下lw549的，还不错，反正我没有感觉到她在闪 ，呵呵
  
你戴着眼镜当然看不清了  闪得很呢

Answer 25

啊？闪？
我这里一点也不闪呀。d6 + win2000 professional

Answer 26

你把label放到panel上，控制一下移动的边界不就好了
这种方法在现在的机器上一般是不怎么闪的
不过用好一点的方法当然更好

Answer 27

解决闪烁的问题可以将Panel的属性DoubleBuffer设置为True即可。界面美化可以采用Nicrosoft的SuiPack界面套件实现。