Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Label Klick-Event (nonvcl) (https://www.delphipraxis.net/61645-label-klick-event-nonvcl.html)

TheGame1492 24. Jan 2006 13:13


Label Klick-Event (nonvcl)
 
hoi

ich erzeuge in einer resource datei eine dialogbox mit einem label

Code:
101 DIALOGEX 204, 119, 128, 35
STYLE WS_BORDER | WS_DLGFRAME | WS_GROUP | WS_MINIMIZEBOX | WS_SYSMENU | WS_TABSTOP
EXSTYLE WS_EX_CONTROLPARENT | WS_EX_WINDOWEDGE
CAPTION "test"
LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
FONT 8, "MS Sans Serif"
{
   CONTROL "www.test.de", 1501, STATIC, SS_CENTER | WS_GROUP | WS_CHILD | WS_VISIBLE, 5, 52, 117, 10

}
nun will ich das wenn man aufs label klickt, auf www.test.de zB connecten kann

dies funzt nicht, ich wollte mit folgenden code den klick abfangen

Code:
const
  ID_Label1 = 1501;
.
.
.
 WM_COMMAND:
      IF hiword(dwparam) = BN_CLICKED THEN BEGIN
        CASE loword(dwparam) OF
          ID_Label1:
            begin
              ShellExecute( 0, 'open', 'http://test.de', '', nil, SW_SHOW);
            end;
.
.
.

Luckie 24. Jan 2006 13:15

Re: Label Klick-Event (nonvcl)
 
Das Label muss den Stil SS_NOTIFY haben:
Zitat:

Sends the parent window STN_CLICKED, STN_DBLCLK, STN_DISABLE, and STN_ENABLE notification messages when the user clicks or double-clicks the control.

TheGame1492 24. Jan 2006 13:23

Re: Label Klick-Event (nonvcl)
 
ah thx ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz