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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
type
TSubForm = class(TForm)
strict private
FEdit: TEdit;
FLabel: TPanel;
function GetValue(): string;
procedure SetValue(const AValue: string);
private
procedure EditKeyDownEventHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
class procedure ClickEventHandler(Sender: TObject);
protected
procedure InitializeNewForm(); override;
public
property Value: string read GetValue write SetValue;
end;
private
type
TColoredControl = class(TWinControl);
private
class procedure FormClickEventHandler(Sender: TObject);
public
procedure AfficheClavier(var Valeur: string);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure CreationClavier8(AForm: TForm);
begin
// a défaut de savoir ce que c'est !
with TBitBtn.Create(AForm) do
begin
Parent := AForm;
Kind := bkOK;
Align := alBottom;
end;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
V: string;
begin
AfficheClavier(V);
ShowMessage(V);
end;
class procedure TForm1.FormClickEventHandler(Sender: TObject);
var
I: Integer;
begin
// Self c'est la classe TForm1
// On ne peut pas accéder aux membres d'instance et cela évite toute tentation d'utiliser autre chose que le Sender
if Sender is TForm then
with TForm(Sender) do
for I := 0 to ComponentCount - 1 do
if Components[I] is TWinControl then
TColoredControl(Components[I]).Color := clSkyBlue; // le petit Hack du Protected
end;
procedure TForm1.AfficheClavier(var Valeur: string);
var
SubForm: TSubForm;
begin
SubForm := TSubForm.CreateNew(nil); // inutile de mettre un owner sur une instance géré via un try modal finally
try
SubForm.Height := 435;
SubForm.Width := 322;
SubForm.Color := clWhite;
SubForm.OnClick := FormClickEventHandler;
CreationClavier8((*3, 95*)SubForm);
SubForm.Value := Valeur;
if SubForm.ShowModal() = mrOk then
Valeur := SubForm.Value;
finally
SubForm.Free(); // inutile l'affectation de nil sur une variable locale
end;
end;
{ TForm1.TSubForm }
class procedure TForm1.TSubForm.ClickEventHandler(Sender: TObject);
begin
// Self c'est la classe TForm1.TSubForm
// On ne peut pas accéder aux membres d'instance
if Sender is TEdit then
begin
if TEdit(Sender).Color = clCream then
TEdit(Sender).Color := clMoneyGreen
else
TEdit(Sender).Color := clCream;
end
else if Sender is TPanel then
begin
TPanel(Sender).ParentBackground := False;
if TPanel(Sender).Color = clMoneyGreen then
TPanel(Sender).Color := clCream
else
TPanel(Sender).Color := clMoneyGreen;
end;
end;
procedure TForm1.TSubForm.EditKeyDownEventHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// Self c'est l'instance de TForm1.TSubForm
Self.FLabel.Caption := IntToStr(Key);
end;
function TForm1.TSubForm.GetValue(): string;
begin
Result := FEdit.Text;
end;
procedure TForm1.TSubForm.InitializeNewForm();
begin
inherited InitializeNewForm();
FEdit := TEdit.Create(Self); // Self va libérer automatiquement, pas besoin de le faire explictement
FEdit.Parent := Self; // un Enfant ne peut pas exister dans Parent, alors effet de bord, c'est la libération du Parent qui libère l'enfant avant même la notion du Owner
FEdit.Align := alTop;
FEdit.Alignment := taCenter;
FEdit.OnKeyDown := EditKeyDownEventHandler;
FEdit.OnClick := ClickEventHandler; // petite démo du class procedure au passage comme EventHandler;
FLabel := TPanel.Create(Self); // TStaticText pour la couleur de fond !
FLabel.Parent := Self;
FLabel.Align := alTop;
FLabel.OnClick := ClickEventHandler;
end;
procedure TForm1.TSubForm.SetValue(const AValue: string);
begin
FEdit.Text := AValue;
end;
end. |
Événements dynamiques locaux
Répondre avec citation
Envoyé par tourlourou
Partager