|
ｿｽ@ｿｽｿｽListviewｿｽｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽOｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽﾉは。
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽgｿｽc 2009/06/10(ｿｽｿｽ) 12:30:39
ｿｽﾂ具ｿｽｿｽｿｽWindowsｿｽ@XP Delphi6 PersonalｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽCｿｽｿｽFormｿｽｿｽListboxｿｽｿｽ
ｿｽｿｽｿｽIｿｽﾉ作成ｿｽｿｽｿｽｿｽListviewｿｽiｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ詳細表ｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽ成ｿｽｿｽｿｽｿｽListview.DragMode:=dmAutomatic;ｿｽj
ListboxｿｽﾖドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽFormｿｽﾖドｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽ分ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽいｿｽｿｽQｿｽlｿｽTｿｽCｿｽgｿｽｿｽTｿｽｿｽｿｽﾄ会ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ能ｿｽﾍではなゑｿｽｿｽRｿｽsｿｽyｿｽﾅゑｿｽｿｽB
ｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾌドｿｽｿｽｿｽbｿｽOｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽﾍ旨ｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAFormｿｽｿｽｿｽListviewｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽhｿｽｿｽｿｽbｿｽOｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽHｿｽWｿｽｿｽｿｽﾌ通行ｿｽ‾ｿｽﾟのようｿｽﾈマｿｽ[ｿｽNｿｽｿｽｿｽﾅまゑｿｽｿｽB
ｿｽQｿｽlｿｽTｿｽCｿｽgｿｽｿｽGｿｽNｿｽXｿｽvｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾌドｿｽｿｽｿｽbｿｽvｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ListviewｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽsｿｽiｿｽtｿｽ@ｿｽCｿｽｿｽｿｽjｿｽｿｽhｿｽｿｽｿｽbｿｽOｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
private
//------------ｿｽhｿｽｿｽｿｽbｿｽOｿｽhｿｽｿｽｿｽbｿｽvｿｽﾌフｿｽbｿｽNｿｽﾖ撰ｿｽｿｽﾏ撰ｿｽ
ListBox3OldProc: TWndMethod;
Form1OldProc: TWndMethod;
//----------------------------------
procedure ListBox3NewProc(var message: TMessage);
procedure Form1NewProc(var message: TMessage);
procedure TForm1.FormCreate(Sender: TObject);
Form1OldProc := Form1.WindowProc;// ｿｽﾈ前ｿｽﾌプｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾛ托ｿｽ
Form1.WindowProc := Form1NewProc;// ｿｽVｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽVｿｽ[ｿｽVｿｽｿｽｿｽｿｽZｿｽbｿｽg
DragAcceptFiles(Form1.Handle, True);// ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽけ趣ｿｽｿｽﾌ登ｿｽ^
ListBox3OldProc := ListBox3.WindowProc;// ｿｽﾈ前ｿｽﾌプｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾛ托ｿｽ
ListBox3.WindowProc := ListBox3NewProc;// ｿｽVｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽVｿｽ[ｿｽVｿｽｿｽｿｽｿｽZｿｽbｿｽg
DragAcceptFiles(ListBox3.Handle, True);// ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽけ趣ｿｽｿｽﾌ登ｿｽ^
end;
//ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾖのドｿｽｿｽｿｽbｿｽvｿｽｿｽけ趣ｿｽｿｽ
procedure TForm1.Form1NewProc(var message: TMessage);
begin
if message.Msg = WM_DROPFILES then
begin // WM_DROPFILES ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽ
ｿｽEｿｽEｿｽﾈ暦ｿｽ
end;
//Listboxｿｽﾖのドｿｽｿｽｿｽbｿｽvｿｽｿｽけ趣ｿｽｿｽ
procedure TForm1.ListBox3NewProc(var message: TMessage);
begin
ｿｽ@ｿｽ@if (message.Msg = WM_DROPFILES) and (ListBox3.Visible=true) then
ｿｽ@ｿｽ@begin // WM_DROPFILES ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽ
ｿｽ@ｿｽ@ｿｽEｿｽEｿｽEｿｽﾈ暦ｿｽ
end;
monaa 2009/06/10(ｿｽｿｽ) 14:31:25
WM_DROPFILESｿｽﾍトｿｽbｿｽvｿｽｿｽｿｽxｿｽｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌみ受け趣ｿｽ黷ｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽeｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽDragDropｿｽﾉ対会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽOLEｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾟゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ擾ｿｽｿｽSｿｽﾒには不ｿｽﾂ能ｿｽﾈのでコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽTｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ[ｿｽｿｽｿｽSｿｽﾒには不ｿｽﾂ能ｿｽｿｽｿｽﾄのは趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ轤ｻｿｽﾌ人ｿｽﾍゑｿｽﾍや初ｿｽSｿｽﾒでは厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄ意厄ｿｽｿｽﾅゑｿｽｿｽB
ofZ 2009/06/10(ｿｽｿｽ) 16:07:28
ListboxｿｽｿｽListviewｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾋ？
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source = ListView1;
end;
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source = ListView1 then begin
if ListView1.Selected <> nil then begin
ListBox1.Items.Add(ListView1.Selected.Caption);
end;
end;
end;
ｿｽgｿｽc 2009/06/10(ｿｽｿｽ) 19:34:05
monaa ｿｽｿｽｿｽｿｽ
ofZｿｽｿｽｿｽｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ofZｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆは、ｿｽｿｽｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Listviewｿｽ動的ｿｽﾉ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾔ趣ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾅは。
ｿｽgｿｽc 2009/06/10(ｿｽｿｽ) 19:35:57
ｿｽｿｽｿｽﾈｿｽｿｽXｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ}ｿｽ[ｿｽNｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
