Desativar um dbEdit

29/08/2004

:arrow: Bem pessoal estou quebrando a cabeça e naum achei uma solução.
Tenho um [b:7b8c092691]DBComboBox[/b:7b8c092691], este possui 2 itens Opção1 e Opção2.

:arrow: Quando este ([b:7b8c092691]DBComboBox[/b:7b8c092691]) fora Opção1 gostaria de desativar um [b:7b8c092691]DBEdit[/b:7b8c092691] porém quando este for a Opção2 deveria ser ativado.


Segue o código...



begin
  if DBComboBox.Text = ´Opção1´ then
     DBEdit.Enabled := ´Disable´ (tb tentei FALSE) else
     DBEdit.Enabled := ´True´;
     end;


Porém me retorna uma msg de erro segue...
:idea: [Error] unt_CadCliente.pas(165): Incompatible types: ´Boolean´ and ´String´

Se alguem tiver um sintaxe certa para me ajudar ficarei grato... Estou utilizando o DELPHI 7, ah e este codigo esta no evento onclick do DBComboBox.

Muinto Obrigado.

[b:7b8c092691][color=red:7b8c092691]Título editado pelo Moderador (AZ) - Removido: ´DBEdit Coisa Tosca ou burrice?´[/color:7b8c092691][/b:7b8c092691]


Klaveren

Respostas

29/08/2004

Vinicius2k

Colega,

Nenhuma das duas coisas. (referente ao título do seu tópico ) :wink:
O melhor é vc usar a rotina no OnChange... e o correto seria :
if DBComboBox.Text = ´Opção1´ then 
  DBEdit.Enabled := False 
else
  DBEdit.Enabled := True;

Seu erro está em colocar as aspas ao passar um valor booleano para uma propriedade... vc só usa aspas para identificar passar strings ou chars...

T+


Responder Citar

30/08/2004

Weber

DBEdit1.Enabled := Trim(DbComboBox1.Text)<>´Opção1´;



Responder Citar