Cara.. eu tinha o mesmo problema originalmente mostrado, mas eu usava a
seguinte Function para criar o formulário:
<<
Function TfrmLoader.CriarForm(FormClass: TFormClass): TForm;
Var
I: Integer;
Begin
Result := nil;
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I] is FormClass then
Result := Screen.Forms[i];
if Result = nil then
begin
{CASO O FORM AINDA NÃO FOI CRIADO ENTRA NO BLOCO E CRIA O FORM + ITEM NO
MENU}
{ EVITA A MAXIMIZAÇÃO INDESEJADO DO FORM}
LockWindowUpdate(Handle);
{CRIA O FORM}
Application.CreateForm(FormClass, Result);
LockWindowUpdate(0);
end
{CASO O FORM JA ESTEJA NA MEMÓRIA ENTÃO MAXIMIZA-O E O CHAMA PARA
FRENTE DOS OUTROS FORMS}
else
begin
with Result do
begin
WindowState := wsNormal;
BringToFront;
SetFocus;
end
end;
Result.Show;
End;
>>
Até eu precisar de fazer uma determinada operação com um objeto do form criado,
nao tinha problemas, mas depois dessa alteração comecei a ter os mesmos
problemas. Checando o código notei que sempre o form era nil. o que fiz?
Abandonei a rotina acima e passei a criação do form para o application conforme
está abaixo:
<<
Application.CreateForm(TfrmEVENTOS_SERVICO, frmEVENTOS_SERVICO);
frmEVENTOS_SERVICO.ShowModal;
frmEVENTOS_SERVICO.Free;
>>
Não consegui resolver o problema, apenas contornei-o de outra maneira... Acho
que no seu caso pode ser resolvido da mesma forma.
Sds,
Ricardo.
Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
Tente fazer desta forma
Procedure XXX;
Var
FormBaixa : TFormBaixa2;
Begin
FormBaixa := TFormBaixa2.Create(nil);
FormBaixa.Showmodal;
FormBaixa.Free;
BtnSalvarClick(Self);
End;
[]'s
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Itabyte®
Enviada em: terça-feira, 5 de junho de 2007 07:47
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Form não abre de jeito nenhum !!!
Pessoal coloquei um botao no meu form para chamar outro , no codigo on click
do botao coloquei o seguinte codigo :
begin
{codificação...}
Modificar(Self) ;
TFormBaixa2.Create(Application);
Try
FormBaixa2.ShowModal;
Finally
FormBaixa2.Free;
end;
BtnSalvarClick(Self) ;
end;
mais qdo clico nele para trazer o FormBaixa2 ele da a seguinte mensagem de
erro :
" CANNOT MAKE A VISIBLE WINDOW MODAL "
O que estou fazendo de errado???
JESUS TE AMA !!!
----------------------------------------------------------
MarcioCC®
**************
Itabyte Tecnologia® - www.itabyte.com
Analista/Programador - For Delphi
MSN : [EMAIL PROTECTED]
SKYPE : itabytetec
Fone : 15-3524-1946
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
_
---------------------------------
Novo Yahoo! Cadê? - Experimente uma nova busca.
[As partes desta mensagem que não continham texto foram removidas]
