この発言は
#00765　ぜえた          さんのRE:ﾌｧｲﾙのﾄﾞﾛｯﾌﾟを受け入れるようにするコ
に対するコメントです



使用例をあげてませんでした(^^;

フォームに DragAcceptPanelと Memoを置き、OnDragOverと OnDragDropを設定
してください。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DAPanel;

type
  TForm1 = class(TForm)
    DragAcceptPanel1: TDragAcceptPanel;
    Memo1: TMemo;
    procedure DragAcceptPanel1DragOver(Sender, Source: TObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure DragAcceptPanel1DragDrop(Sender, Source: TObject; X,
      Y: Integer);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DragAcceptPanel1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept := True;
end;

procedure TForm1.DragAcceptPanel1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  Memo1.Lines := DragAcceptPanel1.FileNames;
end;

end.

                                                    ぜえた (QZC05100)
 



Original document by ぜえた          氏 ID:(QZC05100)

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