想在一個Form(or TImage)裡頭動態新增TImage and TLabel元件,但我試著用array的方式去Create, 但在Form上頭都是空白,找了一些文章沒找到,請各位先進給我方向,謝謝

您好： procedure TForm1.Button1Click(Sender: TObject); var Image:TImage; begin Image:=TImage.Create(Form1); Image.Parent:=Form1;//重點是這行 Image.Picture.LoadFromFile('d:\pic9.bmp'); end;

supman 兄: 可以了,感謝您,但有個問題 可不可以請教您及各位先進,假如要讓這些被create的Image 在一定的範圍被拖曳,有哪些要注意的,我試著在一些event寫code ,and 一些設定參數好像沒什麼效果.

1. 定義一變數 MousePS : TPoint; 在物件的OnMouseDown 下 MousePS :=Point(X,Y); {記錄按下的位置} 在物件的OnMouseMove 下 if ssLeft in Shift then With TControl(Sender) do begin setBounds(Left (X-MousePS.X),Top (Y-MousePS.Y),Width,Height); end; 參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

但我的元件是用矩陣產生的,如何使用這個event ..?? 先感謝兩位替我解答.謝謝

您好: 不同的問題,建議開新的主題,以方便以後的人查找. 上面所提請參考下面連結 http://delphi.ktop.com.tw/topic.php?topic_id=60235 或者使用搜尋"動態 事件"

Like this ...

在 Provate 定義 procedure AllBtn_MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);    ......
procedure AllBtn_MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  {處理動作}
  ...
end;    在 Create時將事件塞給物件。
Button1.OnMouseMove := AllBtn_MouseMove;

「參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

謝謝兩位大大的幫忙,但依據我的問題title ,所以給分給supman,但wameng兄幫了我很大的忙,真的謝謝wameng兄...