A "unit" abaixo possui uma procedure que instancia um objeto formulário a
partir do método construtor próprio da classe que controla o referido formulário.
unit Unit_ALX_Painel_Central;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Unit_ALX_Clientes;
type
TFrm_ALX_Painel_Central = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_ALX_Painel_Central: TFrm_ALX_Painel_Central;
implementation
{$R *.dfm}
//==============================================================================
procedure TFrm_ALX_Painel_Central.BitBtn1Click(Sender: TObject);
var
alx_frm_clientes: TFrm_ALX_Clientes;
begin
alx_frm_clientes:= TFrm_ALX_Clientes.alx_voi_Create(Application);
end;
//==============================================================================
segunda-feira, 21 de maio de 2007
Rotina em DELPHI para instanciar um objeto
Marcadores:
criação de objetos,
delphi,
instanciação de objetos
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário