J'ai deux petites questions à partir du simple code qui suit. Je n'arrive hélas pas à règler ces deux problèmes. Si une âme charitable peut éclairer mes lumières.

1. Comment indiquer la prise de focus à la fiche enfant (barre de titre en surbrillance) ?
2. Pourquoi est-ce que le second TEdit ne prend pas le focus dès que l'on clique dessus ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
  ...
TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var f: TForm;
begin
  f := Tform.Create(Self);
  f.parent := Form1;
  with TEdit.Create(Self) do
    parent := f;
  with TEdit.Create(Self) do
  begin
    top := 30;
    parent := f;
  end;
  f.show;
end;
...