Context Navigation

UFormInput.pas

Last change on this file was 5, checked in by chronos, 12 years ago
Added: LibreDevelopCommon package which supply API unit ULDStudioAPI. Modified: Module LDStudioCommon now register forms, actions and menu items using API.
File size: 659 bytes

Line
1	unit UFormInput;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
9
10	type
11
12	{ TFormInput }
13
14	TFormInput = class(TForm)
15	Label1: TLabel;
16	MemoInput: TMemo;
17	procedure MemoInputKeyPress(Sender: TObject; var Key: char);
18	private
19	{ private declarations }
20	public
21	{ public declarations }
22	end;
23
24	var
25	FormInput: TFormInput;
26
27
28	implementation
29
30	{$R *.lfm}
31
32	procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
33	begin
34	{if MainForm.CurrentTarget is TTargetInterpretter then
35	with TTargetInterpretter(MainForm.CurrentTarget) do
36	Input := Input + Key;}
37	end;
38
39
40	end.
41

Note: See TracBrowser for help on using the repository browser.