Переделать в 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.

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

Всё.

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