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!
