Improve company productivity with a Business Account.Sign Up
procedure TForm1.ComboBox1Select(Sender: TObject);
if ComboBox1.Text='--------' then Combobox1.ClearSelection;
Open in new window
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
Index := ComboBox1.ItemIndex;
if (Index >= 0) and (Pos('--', ComboBox1.Items[Index]) = 1) then
ComboBox1.ItemIndex := -1;
procedure TForm1.ComboBox1Change(Sender: TObject);
s:=(sender as TComboBox).Text;
if pos('-----',s)>0 then (sender as TComboBox).ItemIndex:=-1;
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.