TComboEdit ItemIndex funktioniert in Firemonkey nicht

[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;