Discussion :

[dederfred]

Bonsoir,
Je débute dans le langage delphi. (J’en avais fait un peu dans mon iut mais vraiment peu et il y a deux ans)
Je suis entrain de créer une application mais 2 problèmes se posent à moi.

- Le premier je pence qu'il doit être possible comme en action script d'instancier un objet mais je n'arrive pas à trouver ce la sur google et en faisant des recherche sur le forum. Peu être je me trompe de terme ...

- Pour le deuxième, je veux créer des onglets dynamiques le premier se met automatiquement mais dans le deuxième onglet il y a écris clique pour ajouter un onglet lors du clique sur cette onglet cela ajoute juste avant l'onglet deux un nouvelle onglet. (À ce que j'ai compris sur ce que j'ai lu sur les forums il faut utiliser les composants TtabSet et TnoteBook)

[TicTacToe]

Bonjour et bienvenue sur Developpez

La créations dynamique est expliquée dans la FAQ Delphi

Pour instancier un objet

Code :

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

1
2
3
4
var
  MaListe: TStringList;
begin
  MaListe := TStringList.Create

par exemple

Les règles du forum sont disponibles ici

bonne continuation

[krokmitaine]

Salut, je viens à l'instant de finir de coder un Notepad avec le système d'onglets à la firefox (J'avais une nuit à perdre ).
Vas voir ici
En ce qui te concerne, la partie intéressante serait je pense :

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
32
33
//
// Crée un nouveau document dans un nouvel onglet
//
procedure TfmMain.AddTabNote(filename : String = '');
var
  len : Integer;
  re : TRichEdit;
begin
  len := pcNotepad.PageCount;
  SetLength(FPathNotes, len + 1);
  FPathNotes[len] := '';
  SetLength(FModifiedNotes, len + 1);
  FModifiedNotes[len] := false;
  SetLength(FTabNotes, len + 1);
  FTabNotes[len] := TTabSheet.Create(pcNotepad);
  FTabNotes[len].PageControl := pcNotepad;
  FTabNotes[len].Name := 'tn' + IntToStr(len);
  if filename = '' then begin
    FTabNotes[len].Caption := 'New' + IntToStr(FIdNote);
    Inc(FIdNote);
  end else
    FTabNotes[len].Caption := filename;
  re := TRichEdit.Create(FTabNotes[len]);
  re.Align := alClient;
  re.BevelInner := bvNone;
  re.BevelOuter := bvNone;
  re.BorderStyle := bsNone;
  re.OnChange := SetModifiedNote;
  TWinControl(re).Parent := FTabNotes[len];
  TControl(re).Parent := FTabNotes[len];
  pcNotepad.ActivePageIndex := pcNotepad.PageCount - 1;
end;

J'espère que c'est assez lisible.
Bonne chance et bon dev !