4bd9b0fd4b
Component V 0.1.2.0 Demo V 0.1.2.0 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5487 8e941d3f-bd1b-0410-a28a-d453659cc2b4
52 lines
800 B
ObjectPascal
52 lines
800 B
ObjectPascal
unit ukeydialog;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Forms, StdCtrls,
|
|
Buttons;
|
|
|
|
type
|
|
|
|
{ Tkeydialog }
|
|
|
|
Tkeydialog = class(TForm)
|
|
BitBtn1: TBitBtn;
|
|
BitBtn2: TBitBtn;
|
|
edt_key: TEdit;
|
|
lbl_info: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
Var sKeyPhrase:String;
|
|
end;
|
|
|
|
var
|
|
keydialog: Tkeydialog;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ Tkeydialog }
|
|
|
|
procedure Tkeydialog.FormCreate(Sender: TObject);
|
|
begin
|
|
Caption := Application.Title + ' Key Chooser';
|
|
Icon := Application.Icon;
|
|
sKeyPhrase:='Type a phrase or number';
|
|
edt_key.Text:=sKeyPhrase;
|
|
end;
|
|
|
|
procedure Tkeydialog.FormShow(Sender: TObject);
|
|
begin
|
|
edt_key.Text:=sKeyPhrase;
|
|
end;
|
|
|
|
end.
|
|
|