function aufgeklappt(cb: TCustomComboBox): boolean; 
begin 
  result := sendmessage(cb.handle, CB_GETDROPPEDSTATE, 0, 0) = 1; 
end; 
 
// Beispielaufruf 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
begin 
  if aufgeklappt(TCombobox(Control)) then label1.caption := 'aufgeklappt' 
  else label1.caption := 'zugeklappt'; 
end;