在窗體放入2個image元件，我想把第1個image元件中的圖片檔，拖到第2個裏面，試了半天未能成功?提示不適合此操作?應該怎麽做?
[code delphi]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
(sender as Timage).BeginDrag(true);
end;
procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source is Timage then
accept:=true;
end;
procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if(sender as Timage)and(source is Timage)then
(sender as Timage).Picture.Bitmap.LoadFromFile('fdsdf.jpg');
end;
[/code]

不知是我這個問題太簡單?還是問得太荒唐?

請先爬文
站上已經有許多文章已經足夠回答您的問題了...

http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=75449

請先把Image1的圖片路徑放在一個變數中
then....

procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (sender is Timage) then
Image2.Picture.Bitmap.LoadFromFile(s);
end;

編輯記錄