|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
drag drop problem win 7 :(
friends !!
this code xp drag and drop run ok Код:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var hDrop: HWND; i, iFile: Integer; szFile: array[ 0..MAX_PATH ] of Char; begin if (Msg.message = WM_DROPFILES) then begin ListBox1.Items.Clear( ); hDrop := Msg.wParam; iFile := DragQueryFile(hDrop, $FFFFFFFF, nil, 0); for i := 0 to (iFile - 1) do begin DragQueryFile(hDrop, i, szFile, MAX_PATH); ListBox1.Items.Add(StrPas(szFile)); end; DragFinish(hDrop); end; end; but win 7 problemm what is win 7 drag and drop code ? please |