edsouzza Postado Junho 30, 2008 Denunciar Share Postado Junho 30, 2008 (editado) Pessoal tem como Desabilitar o ítem de um ComboBox?Ou seja o usuário escolhe o ítem e este ítem fica aparecendo mas não podendo ser clicado. Editado Fevereiro 19, 2011 por edsouzza Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Julho 4, 2008 Denunciar Share Postado Julho 4, 2008 Pessoal tem como Desabilitar o ítem de um ComboBox?Ou seja o usuário escolhe o ítem e este ítem fica aparecendo mas não podendo ser clicado.Na propriedade style deixe como csOwnerDrawFixedvar Form1: TForm1; itens : array[1..5] of integer; // Total de itens do Combobox n : integer = 0; x : integer = -1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin // DESABLITAR ITENS DO COMBOBOX n := 1; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var i : integer; begin for i := 0 to ComboBox1.items.Count do begin with ComboBox1.Canvas do begin FillRect(Rect); // verifica se é o indice a ser desabilitado if (Index = itens[i]) then begin Font.Color := clGray; if (odSelected in State) then begin Brush.Color := clWhite; FillRect(Rect); end; end else begin if (odSelected in State) then Font.Color := clWhite else Font.Color := clBlack; end; TextOut(Rect.Left, Rect.Top, ComboBox1.Items.Strings[Index]); end; end; end; procedure TForm1.ComboBox1Click(Sender: TObject); begin if n = 1 then begin x := x + 1; itens[x]:= ComboBox1.ItemIndex; // Item do Combobox que será desabilitado if MessageDlg('Deseja Desabilitar mais um item ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then n := 0; end; if ComboBox1.Canvas.Font.Color = clGray then showmessage('Desabilitado'); end; procedure TForm1.FormActivate(Sender: TObject); var i : integer; begin for i := 1 to 5 do itens[i]:= -1; // limpar o array que guardará os indices do combobox end; end.abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
edsouzza
Pessoal tem como Desabilitar o ítem de um ComboBox?
Ou seja o usuário escolhe o ítem e este ítem fica aparecendo mas não podendo ser clicado.
Editado por edsouzzaLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.