F�rum Array de forms #558741

29/06/2016

Ol� pessoal, estou com um problema eu gostaria de abrir varios forms simultaneos e em cada um quero abrir informa��es diferentes (ou seja teria um form base). Mas estou tendo alguns problemas. Primeiro n�o conseguia abrir simultaneamente, mas dps consegui, mas n�o conseguia trocar a informa��o na pagina, foi ai que decidi fazer uma array e abrir atraves dela, ate da certo, porem soh na primeira vez q executo, dps da um erro: [dcc32 Fatal Error] F2039 Could not create output file '.\Win32\Debug\CobaiaPaginaBase.exe'

o que eu fa�o?

Aqui est� meu c�digo:

unit Cobaia;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;

type
  TForm5 = class(TForm)
    edt: TLabeledEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

uses Unit6;

procedure TForm5.BitBtn1Click(Sender: TObject);
var
  num, i : integer;
  umarray : array[1..9] of TForm6;
begin
  num := StrToInt(edt.text);
  for i := 1 to num do
    begin
      umarray[i] := TForm6.Create(Application);
      umarray[i].Label1.Caption := 'Instancia ' + InttoStr(i) ;
      umarray[i].Show;
    end;

end;

end.

E o segundo form, que � o que eu desejo abrir:

unit Unit6;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
  ShowMessage(Label1.Caption);
end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form6.Destroy;
end;

end.

Isabelle Oliveira

Curtir t�pico

+ 1

Responder

Post mais votado

29/06/2016

Boa tarde!

Em vez de "Form6.Destroy", coloque: Action:= caFree;
Testa a�.

Mateus Ribeiro

Responder

Gostei + 1

Mais Posts

29/06/2016

Isabelle Oliveira

Muito obrigada... deu certo .. ^^

Responder

Gostei + 1