この発言は
#00090　Athena          さんのImageのDrag&Drop
に対するコメントです



#90 Athena さん、こんにちは   Athenaです(^^;



もっと簡単に出来ますね^^;

Image1StartDrag　の　コードは不必要です。ですから
var  ImageT:Integer;　この変数も不要
>同じくImage2 Image3 の OnStartDrag に　Image1StartDragを選択します。
これもいりません。

代わりに
■コード
//---------------------------------------------------------
>procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y:
・
・
これを

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
var i : Integer;
begin
   Image[(Source as TImage).Tag].Parent:=Panel[(Sender as TPanel).Tag];
   for i := 0 to 2  do
   begin
     if  Image[i].Parent<>Panel[i] then
     Exit;
   end;
   ShowMessage('CLEAR!!');
end;

と書き換えます(^^;
＃アップしてから気がついた・・m(_ _)m

                   _/_/   Athena ( VYH00522 )  _/_/

Original document by Athena          氏 ID:(VYH00522)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。