esqueci de comentar pra vc... ele verifica se o
objeto pode receber focus senao nao seta o
foco... oks
--- "[> Mutuka <]" <[EMAIL PROTECTED]>
escreveu:
---------------------------------
vc está mandando um objeto receber foco antes da
tela estar ativa... faça o seguinte sempre
trabalho assim sempre crio uma unit com umas
funções q utilizo em tudo e essa faz parte:
vc deve adicionar todos os tipos de objeto q vc
usará ela... chama-a assim:
Foque(NOMEOBJETO);
Procedure Foque(Objeto: TObject);
Begin
IF (Objeto is TEdit) Then IF (Objeto as
TEdit).CanFocus Then (Objeto as TEdit).SetFocus;
IF (Objeto is TMaskEdit) Then IF (Objeto as
TMaskEdit).CanFocus Then (Objeto as
TMaskEdit).SetFocus;
IF (Objeto is TDateTimePicker) Then IF
(Objeto as TDateTimePicker).CanFocus Then (Objeto
as TDateTimePicker).SetFocus;
IF (Objeto is TRadioGroup) Then IF (Objeto
as TRadioGroup).CanFocus Then (Objeto as
TRadioGroup).SetFocus;
IF (Objeto is TMemo) Then IF (Objeto as
TMemo).CanFocus Then (Objeto as TMemo).SetFocus;
IF (Objeto is TDBGrid) Then IF (Objeto as
TDBGrid).CanFocus Then (Objeto as
TDBGrid).SetFocus;
IF (Objeto is TBitBtn) Then IF (Objeto as
TBitBtn).CanFocus Then (Objeto as
TBitBtn).SetFocus;
IF (Objeto is TRxDBLookupCombo) Then IF
(Objeto as TRxDBLookupCombo).CanFocus Then
(Objeto as TRxDBLookupCombo).SetFocus;
IF (Objeto is TComboBox) Then IF (Objeto as
TComboBox).CanFocus Then (Objeto as
TComboBox).SetFocus;
End;
--- er83pet04 <[EMAIL PROTECTED]> escreveu:
---------------------------------
Percebi que algumas vezes quando minimizo a
janela principal ou
outras da aplicação que estou desenvolvendo,
quando retorno e
maximizo a tela é exibida a seguinte mensagem:
"CANNOT FOCUS A DISABLED OR INVISIBLE WINDOW"
A propriedade FormStyle do form principal está =
fsMDIForm e as
outras forms que criei coloquei do tipo =
fsMDIChild.
O que pode ser isso?
Obrigada
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
São
Paulo Rio
de Janeiro Curitiba
Porto Alegre Belo
Horizonte
Brasília
---------------------------------
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 Termos do Serviço do Yahoo!.
=====
Leandro...
[> Mutuka <]
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido
por:PUBLICIDADE
---------------------------------
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 Termos do Serviço do Yahoo!.
=====
Leandro...
[> Mutuka <]
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< 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
