segunda-feira, 21 de maio de 2007

Rotina em DELPHI para instanciar um objeto

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;
//==============================================================================

Nenhum comentário: