Como assim não funciona? O que tem de errado?
[]s
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo
Silva ®
Enviada em: terça-feira, 26 de abril de 2005 09:17
Para: Grupo Delhpi-br
Assunto: [delphi-br] Validar campos no form
Galera tenho a função abaixo para fazer a validação e destacar os campos
obrigatórios em um form.
Essa função foi passada em um número da revista Clube Delphi que eu não me
lembro, mas ela não está funcionando.
Alguém poderia me dar uma mão e ver o que está errado ?
Obrigado.
function Valida(F: TForm): boolean;
var
i : integer;
lbl : TLabel;
ds : TDataSource;
fn : string;
c : TObject;
begin
for i := 0 to F.ComponentCount - 1 do
begin
if F.Components[i] is TLabel then
lbl := F.Components[i] as TLabel;
lbl.Font.Color := clWindowText;
lbl.Font.Style := [];
if lbl.FocusControl <> nil then
begin
c := lbl.FocusControl;
{Declare TypInfo no uses}
if IsPublishedProp(c,'DataSource') then
begin
ds := TDataSource(GetObjectProp(c,'DataSource'));
if IsPublishedProp(c,'DataField') then
begin
fn := GetStrProp(c,'DataField');
if ds.DataSet.FieldByName(fn).Required then
if ds.DataSet.FieldByName(fn).IsNull then
begin
lbl.Font.Style := [fsBold];
lbl.Font.Color := clRed;
end;
end;
end;
end;
end;
end;
~\\|//~
-(o o)- o--------------oOOOo--(_)--oOOOo-------------o
| |
| Eduardo de Almeida Silva |
| Kobra Sistemas |
| [EMAIL PROTECTED] - (14)3263-0326 |
| |
| .oooO Oooo. |
o----------------( )---( )---------------o
\ ( ) /
\_) (_/
--
<<<<< 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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005
*************************************************************************
Esta mensagem, incluindo os seus anexos, contém informações confidenciais
destinadas a indivíduo e propósito específicos, e é protegida por lei. Caso
você não seja o citado indivíduo, deve apagá-la imediatamente. É
terminantemente proibida a utilização, acesso, cópia ou divulgação não
autorizada das informações presentes neste email. As informações contidas
nesta mensagem e em seus anexos são de responsabilidade de seu autor, não
representando idéias, opiniões, pensamentos ou qualquer forma de posicionamento
por parte da Fundação Desembargador Paulo Feitoza.
The information contained in this communication is confidential, is law
protected, and is intended only for the business use of the addressee. If you
have received this communication in error, please immediately delete it. It's
forbidden the unauthorized use, access, copy or disclose of the information
contained in this communication. The content of this message is responsibility
of the author, and does not represent ideas, opinions, thoughts or any kind of
statement of Fundação Desembargador Paulo Feitoza.
--
<<<<< 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
