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
|
Program IFSTest;
var
F, Form: TForm;
i: Longint;
Labl: TLabel;
Button: TButton;
Edit: TEdit;
Memo: TMemo;
Stop: Boolean;
Begin
Form := TForm.Create(self);
Form.Width := 400;
Form.Height := 300;
Form.BorderStyle := bsDialog;
Form.BorderIcons := [];
Form.Caption := 'Name';
Form.Position := poScreenCenter;
Labl := TLabel.Create(Form);
Labl.Top := 120;
Labl.Left := 160;
Labl.Caption := 'Please type in your name:';
Labl.Parent := Form;
Edit := TEdit.Create(Form);
Edit.Font.Name := 'Tahoma';
Edit.SetBounds(160,160,80,24);
Edit.Parent := Form;
Button := TButton.Create(Form);
Button.Left := 160;
Button.Top := 200;
Button.Width := 80;
Button.Height := 24;
Button.Caption := '&OK';
Button.Parent := Form;
Button.Default := True;
Memo := TMemo.Create(Form);
Memo.Left := 10;
Memo.Width := 380;
Memo.Top := 10;
Memo.Height := 100;
Memo.Text := 'Welcome to Form Test.'#13#10#13#10'Plase wait till the loop is over.';
Memo.Color := 0;
Memo.Font.Color := $FFFFFF;
Memo.Parent := Form;
Memo.Readonly := True;
Form.Visible := true;
Form.Refresh;
stop := false;
while Form.Visible do
begin
Application.ProcessMessages;
i := i + 1;
if i > 100000 then Break;
end;
Button.Free;
Form.Free;
End.
|
