d7 滚动字幕字幕带连接 在线急 Delphi高手帮忙 给分

Question

如题，

Answer 1

写了个不知道是不是楼主要的，timer设置10毫秒procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('http://www.baidu.com'),nil,nil,sw_shownormal);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Left=0-label1.Width then
label1.Left:=form1.Width;
 label1.Left:=label1.Left-1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Cursor:=crHandPoint;
end;procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=clred;
label1.Font.Style:=[fsUnderline];
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clWindowText;
label1.Font.Style:=[];
end;

Answer 2

引用shellapi启动后label向左移动，鼠标移动上去出现下划线并且颜色变成红色

Answer 3

滚动字幕，我有现成的，支持修改字体字号等，在程序退出时，下次启动EXE仍然保持上次设置状态。

Answer 4

闪烁问题的解决办法formcreate事件加上   DoubleBuffered   :=True; 关于保存这些记录那么就是ini的存取了。

Answer 5

我只知道panel可以任意拖动
可以把label放上去或者直接用panel哈。procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
          (sender   as   Tpanel).Perform(WM_SysCommand,   $F012,   0);
end;

Answer 6

raize 控件里  有无合适 控件

Answer 7

刚写的label自定义拖动的，可以继续研究procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  x2,y2:integer;
begin
X2:=mouse.CursorPos.X;
y2:=mouse.CursorPos.Y;label1.Left:=x2-form1.Left;
label1.Top:=y2-form1.Top;
//showmessage(inttostr(x2)+inttostr(Y2));
end;
吃饭克了

Answer 8

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=clred;
label1.Font.Style:=[fsUnderline];
timer1.Enabled:=false;
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clWindowText;
label1.Font.Style:=[];
timer1.Enabled:=true;
end;

Answer 9

最好是加上设置文字透明的选项。我的作品已经很成熟。不是保存ini。
zhangxiaommm需要吗？