Caret in TEdit /TComboBox an X/Y - Position setzen

[ralfiii]

Zitat von taaktaak:

Du hast das Handle der Combobox übergeben, du benötigst aber das Handle des eingebetteten Edits. Daher funktioniert das nicht.
Der Vorfahr TCustomCombo kennt dieses Handle, schau mal in den Source - es ist dort allerdings als "protected" deklariert
<Snip>

Ok, I see.

Einfachere Lösung: hacken und drübercasten. In der gleichen Unit kommt man ja auch auf die Protected-Teile.

Delphi-Quellcode:

type
  TCrackCombobox = class(TCombobox)
end;
procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var i : integer;
begin
     i:=SendMessage(TCrackCombobox(ComboBox1).EditHandle, EM_CHARFROMPOS, 0, x);
     if i>=0 then ...

Danke für den Denkanstoss!