O arquivo não foi em anexo mas estou colocando o fonte neste link
http://www.rstoever.com/download/teste02.zip


.Rafael Stoever .Desenvolvimento

----- Original Message ----- 
From: "Rafael Stoever" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 05, 2004 9:07 AM
Subject: Re: [delphi-br] TAB que não funciona



Olha soh .. fiz um exemplo do q está acontecendo.. e o que percebi é q qdo
preciono o TAB o Tab está no form pai e nao neste filho q criei.

Sds

.Rafael Stoever .Desenvolvimento
----- Original Message ----- 
From: "rstoever" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 03, 2004 1:02 AM
Subject: [delphi-br] TAB que não funciona




Eu estou com um problema... criei um form dentro de uma DLL e qdo
executado o [TAB] para pular de campo a campo nao está funcionando..
parece q o tabstop está false para todos os campos.. ou taborder
errado.. algo assim.. mas nao ... estão tudo ok.. pois se coloco o
taborder para um campo q está no final do form.. qdo abre o mesmo
está setado naquele q indiquei no source.
Mas depois disto nao funciona mais...

essa é a procedure q utilizo para abrir o form.. e detalhe.. tenho q
informar o tamanho do form em tempo de execução pois ele tbm parece q
perde essas caracteristicas de qdo estava programando.

Procedure ShowFormDCAD00301
(PParentApplication:TApplication;PParentForm:Tform);export;stdcall;
var
  DllProc   : Pointer;
begin
  try
    Application:=PParentApplication;
    FCAD00301 := TFCAD00301.Create(PParentForm);
    with FCAD00301 do begin
      MyParentForm:=PParentForm;
      MyParentApplication:=PParentApplication;
      if (PParentForm.FormStyle = fsMDIForm) then begin
        FormStyle := fsMDIChild;
      end;
      Width  := 424;
      Height := 204;
      Constraints.MaxWidth  := Width;
      Constraints.MinWidth  := Width;
      Constraints.MaxHeight := Height;
      Constraints.MinHeight := Height;
      Visible                   := true;
      MyConnection1.Connected   := true;
      MyConnection1.StartTransaction;
      Show;
    end;
  except
    on E : exception do begin
      ShowMessage('Error ao
carregar '+Application.Name+#13+e.Message);
    end;
  end;
end;

Alguém poderia me dar uma ajuda com isso ??? pois isso é péssimo p/ o
cliente.. ter q mudar tudo no mouse.
valeu !


.rafa





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a