Form Herdado - Mudan�a de quot;paiquot;

Question

Oi galera;Existe alguma forma de mudar o �pai� do form, ao cri�-lo?Exemplo: eu uso uma tela de GRID que, hora ser� chamada como fmMDIChild e hora dever� ser chamada como fsNORMAL, para poder dar showm...

Andremuller · Answer

acho que at� daria pra fazer isso passando esse par�metro no construtor da classe, mas n�o acho que seja uma boa id�ia.

N�o daria pra fazer algo do tipo

TfmGrTipo = class(TfmMasterGrid)
TfmGrTipoOnLine = class(TfmGrTipo)

Ou se isso for um caso comum para diversos forms eu faria da seguinte forma: passaria no construtor de TfmMasterGrid a forma como quero que ele seja executado e ent�o essa fun��o estaria implementada pra todos os forms, ou pega um ancestral ainda mais baixo.

Server?

Andremuller · Answer

Esse �Server?� no final da mensagem era pra ser Serve?...

Gustavo_pacheco · Answer

J� tentei mudar no constructor, mas o form �pisca� e � exatamente isso que o usu�rio n�o quer  :?  :(...

Andremuller · Answer

O que voc� muda no construtor o ancestral ou a visualiza��o?

Se for a visualiza��o n�o faz muito sentido ele piscar porque a atualiza��o � feita antes do show.

O que seria o piscar, ele aparece, desaparece e depois aparece novamente?

Gustavo_pacheco · Answer

A principio eu s� tinha o MASTERGRID do tipo FSMDICHILD para forms normais, com bot�o inclui, exclui, etc.

Ent�o precisei que esses forms fossem utilizados para pesquisas , por�m chamando com showmodal; s� que para isso o form deveria ser do tipo FSNORMAL e o VISIBLE FALSE

No Create eu fiz assim:

if xPesquisa = true then
  fmGrTipo.formstyle := fsnormal;
  fmGrTipo.visible := false;
  fmGrTipo.showmodal
end;

Nessa de visible true/false � que ele pisca...

Ent�o resolvi criar um MASTERGRIDONLINE j� com as propriedades default, mas n�o consigo mudar o PARENT do grid em tempo de execu��o... :(

Andremuller · Answer

agora entendi, o que voc� fez n�o foi escrever o construtor, foi colocar isso no evento OnCreate.

Olha s�, a minha dica foi a seguinte:

Reescreve o construtor, como no exempo que segue:

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent; AFormStyle: TFormStyle); reintroduce;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

{ TForm2 }

constructor TForm2.Create(AOwner: TComponent; AFormStyle: TFormStyle);
begin
  inherited Create(AOwner);
  FormStyle := AFormStyle;
end;

Depois faz a chamada passando a forma como tu quer que o form seja executado, tipo:

  Form2 := TForm2.Create(Application, fsNormal);
  try
    Form2.ShowModal;
  finally
    FreeAndNil(Form2);
  end;

Gustavo_pacheco · Answer

Eu j� havia feito isso no .CREATE:[code:1:aa42488841]  if xSearch then  begin    FormStyle := fsNormal;    Visible := false;    Position := poScreenCenter;  end;[/code:1:aa42488841]Ent�o resolvi inverter a situa��o:[code:1:aa42488841]  if not xSearch then  begin    FormStyle := fsMDIChild;    Visible := true;    Position := poMainFormCenter;  end;[/code:1:aa42488841]Depois disso come�ou a dar a mensagem de ACCESS VIOLATION arrrgggth ......

Andremuller · Answer

Tu poderia postar todo o c�digo do teu create, inclusive o cabe�alho do m�todo?Ficaria melhor de avaliar isso...

Gustavo_pacheco · Answer

L� vai:[code:1:65e73a1df4]constructor TfmMasterGrid.Create(Search:boolean=false;KeyAtu:integer=0);begin  xCreated := false;  xKeyManut := 0;  LimpaCampos;  xKeyAtu := KeyAtu;  xSearch := Search;{  if xSearch then  begin    FormStyle := fsNormal;    Visible := false;    Position := poScreenCenter;  end;}  if not xSearch then  begin    FormStyle := fsMDIChild;    Visible := true;    Position := poMainFormCenter;  end;  inherited Create(Application);  xConteudoPesq := ��;  xColuna := nil;  HabBarrasSkin(self);end;[/code:1:65e73a1df4]...

Andremuller · Answer

tu por acaso n�o devia estar executando o

inherited Create(Application);

antes de mais nada?

tem que ver em que ponto em espec�fico est� dando o acces violation, talvez seja porque tu est� tentando acessar um atributo do form antes dele estar criado.

Gustavo_pacheco · Answer

Vix... Piscou MENOS, mas agora meu form ficou totalmente preto...Queria tentar resolver chamando o form de outro pai e n�o mudando o create......

Andremuller · Answer

Mudar a heran�a n�o vai ter como e n�o sei mais como lhe ajudar.
Fiz a seguinte aplica��o
criei um form2 com o seguinte construtor

constructor TForm2.Create(ANormal: Boolean);
begin
  inherited Create(Application);
  if ANormal then
  begin
    FormStyle := fsNormal;
    Position := poScreenCenter;
    Refresh;
    ShowModal;
  end
  else
  begin
    FormStyle := fsMDIChild;
    Position := poMainFormCenter;
  end;
end;

e no form1 fiz as seguintes chamadas

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2 := TForm2.Create(False);
end;

E funciona bem, esse seu �pisca� n�o consigo simular

Fred · Answer

acho que nao entendi direito, mas... Porque vc esta usando a propriedade VISIBLE DO FORM??????????????????...

Gustavo_pacheco · Answer

Beleza cara, valeu mesmo...Deve ser ent�o algum outro problema de componentes (eu uso skin, vou ver com o suporte deles)Mas de qq forma obrigad�o pela for�a!...

Gustavo_pacheco · Answer

Fred,A propriedade VISIBLE � necess�ria para dar o SHOWMODAL......

F�rum Form Herdado - Mudan�a de quot;paiquot; #274420