| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Переделать в KOL компонент HotKeyManager ? FILEOPEN ? DragAcceptF [Delphi, Windows]

dictator ©   (2003-08-13 23:50:00) 

1) А есть ли аналог  FILEOPEN ?

2) Как сделать приём файлов на форму
как в Dephi (без KOL) типа того DragAcceptFiles(Form1.Handle, True);

3) Есть компонент HotKeyManager  как его преобразовать чтобы получить
KOL компонент (используются только Classes, Windows, Messages,  Forms, SysUtils)?
Вот часть HotKeyManager.pas - подскажите что тут нужно изменить.
Хочется научиться переделывать обычные компоненты (не все конечно) в KOL.

{$IFDEF VER140} {$DEFINE DELPHI_6} {$ENDIF}
{$IFDEF DELPHI_6} {$DEFINE DELPHI_6_UP} {$ENDIF}

unit HotKeyManager;

interface

uses
 Classes, Windows, Messages;

type
   KeyIndex: Word;
...
 end;

 THotKeyManager = class(TComponent)
 private
   FHandle: HWND;
   HotKeyList: TList;
   FOnHotKeyPressed: TOnHotKeyPressed;
   procedure HookProc(var Msg: TMessage);       // Hook method
 protected
   function DisposeHotKey(hkr: PHotKeyRegistration): Boolean;
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
   function AddHotKey(HotKey: Cardinal): Word;
...
  published
   property OnHotKeyPressed: TOnHotKeyPressed read FOnHotKeyPressed write FOnHotKeyPressed;
 end;

function HotKeyAvailable(HotKey: Cardinal): Boolean;
...

procedure Register;

implementation

uses
 Forms, SysUtils;

const

---

SPeller   (2003-08-14 11:49:00) [1]

> 1) А есть ли аналог  FILEOPEN

Что это за зверь?


> 2) Как сделать приём файлов на форму
> как в Dephi (без KOL) типа того DragAcceptFiles(Form1.Handle,
> True);

Как средствами VCL - не знаю, но через winapi - флаг WS_EX_ACCEPTFILES.


> подскажите что тут нужно изменить

Всё.

---

Наверх