/examples/dropfiles/unit2.pas
http://github.com/graemeg/lazarus · Pascal · 52 lines · 31 code · 15 blank · 6 comment · 1 complexity · 88e8e13e95bd5be742097ea6a21f552e MD5 · raw file
- unit Unit2;
- {$mode objfpc}{$H+}
- interface
- uses
- Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
- type
- { TForm2 }
- TForm2 = class(TForm)
- CheckBox1: TCheckBox;
- Label1: TLabel;
- procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
- procedure CheckBox1Change(Sender: TObject);
- private
- { private declarations }
- public
- { public declarations }
- end;
- var
- Form2: TForm2;
- implementation
- {$R unit2.lfm}
- uses
- Unit1;
- { TForm2 }
- procedure TForm2.FormDropFiles(Sender: TObject; const FileNames: array of String);
- var
- I: Integer;
- begin
- Form1.Memo1.Lines.Add(IntToStr(Length(FileNames)) + ' file(s) dropped on ' + Name + ':');
- for I := 0 to High(FileNames) do
- Form1.Memo1.Lines.Add(FileNames[I]);
- end;
- procedure TForm2.CheckBox1Change(Sender: TObject);
- begin
- AllowDropFiles := CheckBox1.Checked;
- end;
- end.