eigene ComboBox

[bitsetter]

Hallo,

keine schöne Lösung, aber es geht:

Delphi-Quellcode:

var
  OldWndProc: Pointer;

function CbxWndProc(hCbx, uMsg, wParam, lParam: DWORD): DWORD stdcall;
begin
  case uMsg of
    WM_SETFOCUS, WM_LBUTTONUP: Form1.Combobox1.DroppedDown := True;
  end;
    Result := CallWindowProc(OldWndProc, hCbx, uMsg, wParam, lParam);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWndProc := Pointer(SetWindowLong(FindWindowEx(combobox1.Handle, 0, 'Edit', nil) ,
    GWL_WNDPROC, DWord(@CbxWndProc)));
end;