請教各位高手如何在 MDIForm 上作動態的文字或動態的圖片如gif，謝謝！

您好kwon 參考文字走馬燈 http://delphi.ktop.com.tw/topic.php?topic_id=35684 參考如何秀gif圖檔 http://delphi.ktop.com.tw/topic.php?topic_id=24251

引言: 請教各位高手如何在 MDIForm 上作動態的文字或動態的圖片如gif，謝謝！

1.動態文字,就看你要如何變化用 Timer 定時去變化 2.gif的顯示有看一下 http://delphi.ktop.com.tw/topic.php?topic_id=47911 試試有問題再說.........

感謝兩位大哥的回答，但我試過了走馬燈的方式，它在一般的Form會跑，但在MDIForm 的主Form就不會跑，為什麼呢？

引言: 感謝兩位大哥的回答，但我試過了走馬燈的方式，它在一般的Form會跑，但在MDIForm 的主Form就不會跑，為什麼呢？

我測試沒問題哦!! 你要不要開一個空白的 Project 先試試

咦!奇怪了，我是使用了以下的程式碼，而且我也新開了一個專案來測試，同樣的也是不行耶！而且我將 Form1 的 Formstyle 設成 fsMDIForm，然後寫了以下的程式碼，執行起來，字就是不會跑，但若將 formstyle 設成 fsNormal就可以了    jeffreck 兄您說您在 fsMDIForm 可以跑，那可否告訴我您是如何設定的，或是我那個地方設錯了，謝謝您    var V:Integer; procedure TForm1.FormCreate(Sender: TObject); begin V:=5; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if (Label1.Left > Form1.Width-Label1.Width-40) or (label1.Left<40) then V:=-V; label1.Left:=Label1.Left V; end;

我忘了說,我是使用 Delphi6

我使用的是Delphi 6，在 MDIForm 主 Form 上，不能跑像是跑馬燈，我使用的程式如下，希望各位高能教我如何解決，謝謝！    var V:Integer; procedure TForm1.FormCreate(Sender: TObject); begin V:=5; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if (Label1.Left > Form1.Width-Label1.Width-40) or (label1.Left<40) then V:=-V; label1.Left:=Label1.Left V; end;

引言: 我使用的是Delphi 6，在 MDIForm 主 Form 上，不能跑像是跑馬燈，我使用的程式如下，希望各位高能教我如何解決，謝謝！ var V:Integer; procedure TForm1.FormCreate(Sender: TObject); begin V:=5; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if (Label1.Left > Form1.Width-Label1.Width-40) or (label1.Left<40) then V:=-V; label1.Left:=Label1.Left V; end;

我用 Delphi6 試真的不行 改用 StaticText 或其它 VCL (如Button ,Panel 等) 就可以了,你試試看

感謝 jeffreck 兄的回答，我試過了 MDIForm 主 Form 裡使用panel是可以，但因為 panel 會一直顯示在最上層，所以會蓋掉 fsMDIChild Form，不知是否有別的方法或別元件可以替代？再次的謝謝您！