Ayuda con crear un mismo Form varias veces + Thread

[[escafandra]]

Varias cosas:

1.- En las opciones configura TForm1 como no autocreado.
2.- En tu thread implementa un constructor en el que tengas que pasar una referencia a TForm1 y la guardas en una variable privada. El resto de las llamadas en las que intervenga TForm1, las haces con esa variable que apuntará al Form que te interesa en cada momento.
3.- Como dice Neftali, usa Synchronize, para las funciones que hagan uso de TForm1.

Saludos.

[n03l]

Ok Voy a investigar como es eso de los constructores ya que nunca lo e usado saludos...

Muchas Gracias de Verdad......

[n03l]

Ok, despues de tirar puñaladas al aire y haciendo uso del copy paste e hecho lo siguiente:

En el form

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn2: TBitBtn;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;



implementation
Uses Hilos;
var
Hilo:THilo;

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin

 //Aqui no se como capturar el nombre del form sin utilizar Form1. ya
 // que el nombre es dinamico
Hilo:=THilo.Create(Form1);
Hilo.FreeOnTerminate:=true;
Hilo.Resume;
end;

end.

y en el hilo me da el siguiente error al tratar de compilarlo
[DCC Error] Hilos.pas(39): E2003 Undeclared identifier: 'ProgressBar1'

el Hilo

Código Delphi [-]
unit Hilos;

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

type
  THilo = class(TThread)
  private
  FName: TForm;

    { Private declarations }
  protected
    procedure Execute; override;
     public
    constructor Create(Name: TForm);

  end;


implementation

uses Unit1;


constructor THilo.Create(Name: TForm);
begin
  inherited Create(True);
  FName := Name;
  FreeOnTerminate := True;
end;


procedure THilo.Execute;
begin


FName.ProgressBar1.Position:=0;
FName.BitBtn2.Enabled:=false;
repeat

FName.ProgressBar1.Position:=FName.ProgressBar1.Position+1;
 Sleep(500);
until FName.ProgressBar1.Position=FName.ProgressBar1.Max;

FName.BitBtn2.Enabled:=true;
end;


end.

[Caminante]

FName es de tipo Tform y debe ser de tipo TForm1

Saludos

[n03l]

Hola Caminante, ya lo intente y me marca error
[DCC Error] Hilos.pas(11): E2003 Undeclared identifier: 'TForm1'

saludos

[n03l]

Tenias razon ya lo solucione poniendo TForm1. el problema era que yo tenenia la referencia a Form1

aqui:

Código Delphi [-]
implementation

//uses Unit1;

lo puse aqui y me funciono

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons,Unit1;

saludos y gracias a todos los que me colaboraron

[Neftali [Germán.Estévez]]

Sigues accediendo al formulario y al progressbar sin usar Synchronize.
Creo que antes o después acabará dándote problemas.