Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer); var Image3 : TImage; begin Image3:=TImage.Create(form1); Image3.left := X; Image3.Top := Y; Image3.DragMode := dmAutomatic; Image3.Picture := (Source as TImage).Picture; Image3.Show; end;
source code as shown above . 為何無法 show 出 Image3 物件?
請您參考下列這段程式:
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer); var Image3 : TImage; begin Image3:=TImage.Create(form1); Image3.Parent := form1; (* 您漏寫了這一列 *) Image3.AutoSize := True; Image3.left := X; Image3.Top := Y; Image3.DragMode := dmAutomatic; Image3.Picture := (Source as TImage).Picture; Image3.Show; end; procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source is TImage; end;
詳細情形, 請您用 testing components 查看一下 Testing Uninstalled Components 這個主題的說明.
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |