blob: eb6587bb91ac193dee5ce539038f23d5e975bb87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
unit ListKey;
interface
uses
SwordAPI, SWKey, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TListKey = class(TSWKey)
private
protected
public
constructor Create(AOwner:TComponent); override;
published
end;
procedure Register;
implementation
constructor TListKey.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
KeyType := 'ListKey';
end;
procedure Register;
begin
RegisterComponents('Data Access', [TListKey]);
end;
end.
|
