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