-
Notifications
You must be signed in to change notification settings - Fork 0
/
Unit2.pas
70 lines (56 loc) · 1.53 KB
/
Unit2.pas
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TBilder = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
ListBox1: TListBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Button6: TButton;
Button7: TButton;
procedure ListBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Bilder: TBilder;
implementation
uses Unit1;
{$R *.dfm}
procedure TBilder.ListBox1Click(Sender: TObject);
begin
ListBox1.Sorted:=true;
Bilder.Memo1.Text:=Bilder.Memo1.Text + Bilder.ListBox1.Items[ListBox1.ItemIndex]+'(';
end;
procedure TBilder.Button1Click(Sender: TObject);
begin
Bilder.Memo1.Text:=Bilder.Memo1.Text+Trim((Sender as TButton).Caption);
end;
procedure TBilder.BitBtn1Click(Sender: TObject);
begin
Unit1.Form1.InputPole.Text:=Unit2.Bilder.Memo1.Text;
end;
procedure TBilder.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If MessageDlg('Ñîõðàíèòü ïîñòðîåííîå âûðàæåíèå?',mtConfirmation,[mbYes,mbNo],-1)=mrYes Then
Unit1.Form1.InputPole.Text:=Unit2.Bilder.Memo1.Text;
end;
procedure TBilder.BitBtn3Click(Sender: TObject);
begin
Application.HelpCommand(Help_Contents,6)
end;
End.