Function TForm1.ValidaCampoObrigatorio: boolean; begin
Result := false; for i := 0 to ComponentCount -1 do begin if (Components[i] is TEdit) then begin if ((Components[i] as TEdit).tag = 1) and ((Components[i] as TEdit).Text = '') then begin if (Components[i] as TEdit).Hint <> '' then begin
MessageDlg((Components[i] as TEdit).Hint, mtWarning, [mbok],0 );
(Components[i] as TEdit).SetFocus;
exit; end else begin
MessageDlg('O campo ' + UpperCase(copy((Components[i] as TEdit).Name, 4, length((Components[i] as TEdit).Name) - 3)) + ' é obritárorio.', mtWarning, [mbok],0 );
(Components[i] as TEdit).SetFocus;
exit; end; end; end;
if (Components[i] is TComboBox) then begin if ((Components[i] as TComboBox).tag = 1) and ((Components[i] as TComboBox).Text = '') then begin if (Components[i] as TComboBox).Hint <> '' then begin
MessageDlg((Components[i] as TComboBox).Hint, mtWarning, [mbok],0 );
(Components[i] as TComboBox).SetFocus;
exit; end else begin
MessageDlg('O campo ' + UpperCase(copy((Components[i] as TComboBox).Name, 4, length((Components[i] as TComboBox).Name) - 3)) + ' é obritárorio.', mtWarning, [mbok],0 );
(Components[i] as TComboBox).SetFocus;
exit; end; end; end; end;
result := true; end;
// Como usar esta função.
procedure TForm1.Button1Click(Sender: TObject); begin if ValidaCampoObrigatorio = true then end;
// No hint do componente informe o mensagem que ira aparecer para o usuario...
