Discussion :

[michel71]

bonjour,

j'ai ecrit cette procèdure mais mes composants "cases" ne s'affichent pas et je n'ai aucune erreur

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
 
procedure TMAJrapide.FormActivate(Sender: TObject);
var
cases: array[1..10] of Tedit;
i:integer;
begin
 
for i:=1 to 5 do
begin
cases[i]:=Tedit.Create(Self);
cases[i].Parent:=panel5;
cases[i].text:='essai';
cases[i].Visible:=true;
cases[i].top:=10+(i+10);
cases[i].left:=700+(i+26);
cases[i].Width:=25;
cases[i].Height:=15;
cases[i].Color:=clWindow;
cases[i].Font.Color:=clBlack;
end;
top:=10;left:=100;
end;

merci de votre aide

[sjrd]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cases[i].left:=700+(i+26);

Ca serait pas un peu beaucoup, 700 ? J'ai bien l'impression que ton composant s'affiche, mais en dehors de la zone d'affichage

[DOLPat®]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
cases[i].top:=10+(i+10);
cases[i].left:=700+(i+26);

Cela fonctionne, mais je ne vois pas l'intérêt de faire chevaucher les TEDIT les uns sur les autres...