Скачать: CL | DM;

Переделать в KOL компонент HotKeyManager ? FILEOPEN ? DragAcceptF   Найти похожие ветки 

← →
dictator   (2003-08-13 23:50) [0]

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) [1]

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

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


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

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


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

Всё.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c