Popup Control Touch

[tomkupitz]

Hallo,

Code:

procedure TPopupList.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  
  with Params do
  begin
    WndParent := GetDesktopWindow;
    Style := WS_CLIPSIBLINGS or WS_CHILD or WS_TABSTOP;
    ExStyle := WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
    WindowClass.Style := CS_DBLCLKS or CS_SAVEBITS;

    if FBorderStyle = bsSingle then
      if NewStyleControls and Ctl3D then
      begin
        Style := Style and not WS_BORDER;
        ExStyle := ExStyle or WS_EX_DLGMODALFRAME; 
      end
      else
        Style := Style or WS_BORDER;
  end;
end;

ich erstelle (siehe oben) ein Popup-Control. Auf dem Pc kann man leicht mit MouseLeave und MouseEnter kontrollieren, ob die Maus innerhalb oder ausserhalb ist. Ggf. kann das Control dann geschlossen werden. Nun soll dieses Control in einem Tablet-Pc (Touch) genutzt werden. Wie muss ich nun prüfen, ob neben das Control getoucht wurde, um es zu schließen?

Danke und beste Grüße