在動態生成一個label或shape 物件時,總是讓image 物件給遮住 不知如何才能讓label 物件show 的時候在image 上面

改用 additional 頁的 static text 便可以了

先置入一個 IMAGE 後再FormCreate中動態建立TShape, TLabel procedure TForm1.FormCreate(Sender: TObject); Var Shape1: TShape; begin Shape1:= TShape.create(Self); Shape1.Parent:= Form1; Shape1.Left:= 100; Shape1.top:=100; end;

對不起我記錯了 TImage 是 WinControl，但其實 TImage 和 TLable / TShape 同等的 Control, 是互相可以覆蓋對方的。 在 RunTIme 你可用 Lable1.BringToFront; Lable1.SendToBack; 等來控制誰在上誰在下。 順帶解釋一下 Label 及 Shape 會一定 show 在 WinControl 下面的原因 : 因為 Label 及 Shape 不是WinControl 亦無法自動 repaint。它的 repaint 是靠它的 parent (如 Form 或 Panel) 幫它 repaint 的。 一旦將一個 Label 放在一個 WinControl 放到同一位置，該位置的 repaint 已由那 WinControl 接管。該 WinControl 自然不會為與它無關的 Lable repaint, Label 的 parent 亦沒能力在不是它管的地方為 Label repaint 所以 在重疊的地方 Label 便沒有 repaint ，而好像放在該 WinContorl Image 底下了。 若改用 Static Text, 它有自己的 Handle 和 repaint 的能力，便可放在 WinControl 上面了。