perform(wm_nextdlgctl,0,0);
tem um espaço entre o dlg e o ctl ...
GYNCOWBOY
André Luis da Silveira
----- Mensagem original ----
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 12 de Julho de 2007 15:31:31
Assunto: RES: [delphi-br] Re: Enter pelo Tab não dá certo
Cara, tenta usar o SelectNext e passa como parâmetro
Screen.activecontro l
Procure no Help eu não lembro os parâmetros de cabeça.
[]'s
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de
Anderson
Enviada em: quinta-feira, 12 de julho de 2007 15:11
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Re: Enter pelo Tab não dá certo
continua na mesma...
o perform ele não executa...
Algúém entende o pq ?
--- Em [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> ,
"Anderson"
<afatabe.anderson@ ...> escreveu
>
> Faltou isto aqui
> key := #0;
>
> Ficando desta maneira
> if key=#13 then
> begin
> ShowMessage( 'Teste');
> Key := #0;
> perform(wm_nextdlgc tl,0,0);
> key:=#0;
> end;
>
> ----- Original Message -----
> From: Anderson
> To: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br>
> Sent: Thursday, July 12, 2007 2:21 PM
> Subject: [delphi-br] Enter pelo Tab não dá certo
>
>
> galera, abaixo está o fonte de um componente edit que estou
fazendo.
> O enter pelo tab não funciona nele. Gostaria que alguém pudesse
me
> auxiliar nele pois no keypress eu coloquei assim:
>
> o show messase é exeuctado mas o perform não acontece nada
>
> if key=#13 then
> begin
> ShowMessage( 'Teste');
> perform(wm_nextdlgc tl,0,0);
> key:=#0;
> end;
>
> o fonte tá ai, meu msn é barcellosbh@ ... (meu e-mail tb)
>
> aguardo auxilio e deste já agradeço
>
> unit EditPlus;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs,
> StdCtrls, Mask;
>
> type
> TDataType = (Numero,Cpf, Telefone, CEP,CNPJ, Data,Texto) ;
> TEditPlus = class(TEdit)
> private
> { Private declarations }
> FDataType:TDataType ;
> Procedure SetDataType( Const Value:TDataType) ;
> protected
> { Protected declarations }
> Procedure KeyPress(Var key:char); override;
> procedure WMSetFocus( var message: TMessage ); message
> WM_SetFocus;
> procedure WMKillFocus( var message: TMessage ); message
> WM_KillFocus;
> public
> { Public declarations }
> Constructor Create(Aowner: TComponent) ;Override;
> Destructor Destroy; Override;
> published
> { Published declarations }
> Property DataType :TDataType read FDataType Write SetDataType;
> Property DataTipe :TDataType read FDataType Write SetDataType;
> end;
>
> procedure Register;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents( 'Standart' , [TEditPlus]) ;
> end;
>
> procedure TEditPlus.SetDataTy pe;
> begin
> if FDataType <> value then
> FDataType := Value;
> end;
>
> procedure TEditPlus.KeyPress;
> begin
> If FDataType = Numero Then
> Begin
> if Key in [',','.'] then key:=DecimalSeparat or;
> if key=DecimalSeparato r then
> begin
> if pos(Key,Text) = 0 then
> key:=Key
> else
> Key:=#0;
> end;
> If not (Key in
>
['0'..'9',#8, #22,#13,# 5,#19,#24, #4,#1,#6, #7,#9,#127, DecimalSeparator ])
> Then Key := #0;
> end;
> if key=#13 then
> begin
> ShowMessage( 'Teste');
> SelectNext(ActiveCo ntrol,True, True);
> key:=#0;
> end;
> end;
>
> Constructor TEditPlus.Create;
> begin
> inherited Create(Aowner) ;
> BorderStyle: =bsNone;
> Height:=13;
> Color:=clBtnFace;
> end;
>
> Destructor TEditPlus.Destroy;
> begin
> Inherited Destroy;
> end;
>
> procedure TEditPlus.WMSetFocu s( var message: TMessage );
> begin
> Color:=clWhite;
> inherited;
> end;
>
> procedure TEditPlus.WMKillFoc us( var message: TMessage );
> begin
> Color:=clBtnFace;
> inherited;
> end;
>
> end.
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
[As partes desta mensagem que não continham texto foram removidas]
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->
____________________________________________________________________________________
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
