TComboEdit ItemIndex funktioniert in Firemonkey nicht

[QuickAndDirty]

Zitat von himitsu:

Ohhh.

Eventuell kann man bei der Items-StringList auch einfach das CaseSensitive aktivieren,
so wie bei der normalen TStringList.

Wo geht das?
Das geht?
habs gesucht ... das geht glaube ich nicht!
Es sei denn man könnte indexOf mit einem eigenen IComparer aufrufen?

Ernsthaft dieses Verhalten von IndexOf und OnChange in dem Control ist das erwartbar und ich bin der Typ mit der Meise?
Oder ist das ein überraschendes default Verhalten?

Benutze jetzt meine selbst gebasteltes Combedit...also Tcombobox mit Tedit und dem TCombobox.stylelookup := 'comboeditstyle'
geht ganz gut soweit
man darf Tedit nur nicht disablen...stattdessen

Code:

TEdit.Styled.Fontcolor:=false;
TEdit.Textsettings.FontColor:=Talaphcolorrec.Gray;
TEdit.readonly := true;

Für meine zwecke reicht es.

[mkinzler]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  (ComboEdit1.Items as TStringList).CaseSensitive := True;
end;

[Delphi.Narium]

Das Verhalten von IndexOf basiert auf: https://docs.microsoft.com/en-us/win...indstringexact

Es verhält sich also korrekt, wenn auch nicht wie erwünscht.

[himitsu]

z.B.:

Zitat von mkinzler:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  (ComboEdit1.Items as TStringList).CaseSensitive := True;
end;

Wenn man bei CB_FINDSTRINGEXACT das CaseSensitiv mit angeben kann, dann könnte man auch statt ComboEdit1.Items.IndexOf auf ComboEdit1.Perform(...) oder SendMessage(ComboEdit1.Handle, ...) verwenden.

Hab noch nicht nachgesehn/ausprobiert.

Beispiel VCL-TMemo.
Dort hast du Memo.Lines: TStrings, was ein TMemoLines ist.
An den interne Klassen-Typ kommt man bei VCL/FMX oft nich ran, da die Entwickler so intelligent waren und solche Typen oftmals in der Unit-Implementation definieren, anstatt im Interface.
Aber man kann nachsehn welcher Typ das ist, von wem er abgeleitet wurde und dann via Casts oder RTTI an dessen Einstellungen rumspielen.

Die Komponente ableiten und beim Erstellen einen eigenen TStrings-Typen verwenden geht auch manchmal.
(ist ja nicht jede Komponente so grauenhaft implementiert, wie StdCtrls.TCustomMemo.Create ... z.B. im DevExpress überall zu sehen > TcxCustomMemo.GetInnerEditClass: TControlClass)

[Delphi.Narium]

Innereien bei Delphi 7:

Delphi-Quellcode:

function TCustomComboBoxStrings.IndexOf(const S: string): Integer;
begin
  Result := SendMessage(ComboBox.Handle, CB_FINDSTRINGEXACT, -1, LongInt(PChar(S)));
end;