Fórum passar parâmetro para um form - urgente #209881

27/01/2004

0

Delphi

Caros colegas,

Tenho uma tela e nela existe um botão no qual é chamado um form qualquer. No evento OnClick desse botão eu uso o seguinte código
try
//cria o objeto
frmQualquer := TfrmQualquer.Create(frmFormDoBotao);
//exibe o objeto
frmQualquer.ShowModal;
finally
//libera o objeto
FreeAndNil(frmQualquer);
end

Minha dúvida é a seguinte: Como eu faço para passar um parãmetro para esse ´frmQualquer´ ?? Preciso disso pq existe outra tela que chama esse mesmo ´frmQualquer´ e dependendo de qual tela o chamar eu preciso setar algumas propriedades do próprio ´frmQualquer´ e tbm de alguns de seus componentes...

Grato pela atenção de todos..
[]´s
Leonardo


Leojribeiro

Leojribeiro

Responder

Posts

27/01/2004

Macario

tente o seguinte antes de chamar showmodal


try
//cria o objeto
frmQualquer := TfrmQualquer.Create(frmFormDoBotao);

frmQualquer.caption := ´Teste´;

frmQualquer.Edit1.text := ´Testando parametros´;

frmQualquer.edit1.left := 100;

//exibe o objeto
frmQualquer.ShowModal;
finally
//libera o objeto
FreeAndNil(frmQualquer);
end



espero ter ajudado


Responder

Gostei + 0

27/01/2004

Motta 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    constructor Create(AOwner: TComponent;param: string); reintroduce; overload;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

constructor TForm1.Create(AOwner: TComponent;param: string);
begin
  inherited Create(AOwner);
  showmessage(param);
end;

end.



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar