creer la meme form 2 fois dans un panelRésolu

Question

Bonjour tout le monde,

 Cela fais une semaine que je suis plongé dans tous ce qui a un relation avec delphi 7 sur le net a cause de mon problème, qui est le suivent:

-1) j'ai un MainForm avec un menu et un StatutBar
-2) j'ai un form2 avec des traitement a faire

Alors, par le menu je Crée dynamiquement le Form2, avec un caption et une information sur le StatutBar, dans le panel qui est le parent de celui-ci, et en même temps je le recrée, avec un autre caption et une autre information, sans détruire le premier, et en utilisons l'événement OnClick pour que l'information change dans le statutBar, rien ne ce passe.

pour ceux qui peuvent m'aider,  Merci d'avance pour votre aide
 voici mon code 
//--------------- Unit1 -------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    Menu1Chois11: TMenuItem;
    Menu1Choi21: TMenuItem;
    Appel11: TMenuItem;
    Appel21: TMenuItem;
    StatusBar1: TStatusBar;
    procedure Appel11Click(Sender: TObject);
    procedure Appel21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

Uses Unit2;

{$R *.dfm}

procedure TForm1.Appel11Click(Sender: TObject);
 begin
  Application.CreateForm(TForm2, Form2);
  Form2.Caption := 'Appel 1er fois';
  Form2.Parent            := Panel1;
  Form2.Top := panel1.Top +50;
  Form2.Left := panel1.Left + 50;
  StatusBar1.Panels.Items[1].Text := 'Info 1';
  Form2.Memo1.Lines.Clear;
  Form2.Memo1.Lines.Add('Je suis le 1er affichage');
  Form2.Show;
 end;

procedure TForm1.Appel21Click(Sender: TObject);
 begin
  Application.CreateForm(TForm2, Form2);
  Form2.Caption := 'Appel 2eme fois';
  Form2.Parent            := Panel1;
  Form2.Top := panel1.Top +50;
  Form2.Left := panel1.Left + 50
  StatusBar1.Panels.Items[1].Text := 'Info 2';
  Form2.Memo1.Lines.Clear;
  Form2.Memo1.Lines.Add('Je suis le 2eme affichage');
  Form2.Show;
 end;

end.

//----------------- Unit 2 ------------------------------

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    procedure FormClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormClick(Sender: TObject);
 begin
  If Caption = 'Appel 1er fois' then Form1.StatusBar1.Panels.Items[1].Text := 'Info 1';
  If Caption = 'Appel 2eme fois' then Form1.StatusBar1.Panels.Items[1].Text := 'Info 2';
 end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
  Free;
 end;

end.



NB: je suis autodidacte, et j'ai pas fait de formation sur le delphi

EDIT: Ajout de la coloration syntaxique.

MiniApp · Answer

Bonjour

Je n'ai pas tester mais essaie de crée ta deuxième fiche dans une autre TForm2.

Je te suggère d'ajouter Form2:TForm2; d'ajouter Form2BIS:TForm2; et de remplacer les Form2 dans ton Appel21Click par la nouvelle form. Après je ne sais pas si ça marche. Autrement j'ai ça chez Embarcadero.

Creer la meme form 2 fois dans un panel

1 réponse

Votre réponse

Discussions similaires