Création frame dynamique

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/07/2007, 17h29
Clorish

Citation:

Envoyé par ALWEBER

Z'etes nuls les enfants regardez comment fonctionne la grille sur une fiche Paradox et vous aurez la réponse à votre problème d'une manière totalement simple. Sur cet objet, il n'y a de frames/panels que les frames/panels visibles. Le résultat est immédiat et nul besoin de thread.

Mais encore ?
12/07/2007, 18h56
rvzip64

ah beh alors ALWEBER, ton message est pas super constructif tu m aides pas beaucoup, mais comme t as l air meilleur que nous, je prend volontier ton bout code pour le tester !!!!

Ci joint petit exemple dans le fichier zip attaché qui peut servir de point de départ sur la base des tirages de l'euromillion.

Code du bouton

Code:

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
var
  i1,i2,i3 : integer ;
begin
  // Ici on déplace les objets
  for i1 := 2 to 10 do
  begin
    i2 := trouvePanel (i1) ;
    with TPanel(Pointer(StrToInt(copy(sl1[i2],2,10)))) do
        Top := Top - 40 ;
  end  ;
  // Et sur le premier panel qui est déplacé en dernier on recharge
  // le contenu du 11ème enregistrement
  Table1.Open ;
  Table1.MoveBy(10) ;  // 11 ème position
  i2 := trouvePanel (1) ;
  with TPanel (Pointer(StrToInt(copy(sl1[i2],2,10)))) do
  begin
      Top := 9 * 40 ;
      for i3 := 1 to 5 do
        with TLabel(Pointer(StrToInt(copy(sl1[i2+i3],2,10)))) do
        begin
          Caption := Table1.Fields[i3].AsString ;
          Left := Table1.Fields[i3].AsInteger * 13 ;
        end ;
  end  ;
  Table1.Close ;
  Button1.Visible := false ;

Voir 40 message(s) de cette discussion en une page