Einzelnen Beitrag anzeigen

Benutzerbild von TheGame1492
TheGame1492

Registriert seit: 31. Jul 2004
Ort: Berlin
84 Beiträge
 
Delphi XE2 Professional
 
#1

Label Klick-Event (nonvcl)

  Alt 24. Jan 2006, 14:13
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;
.
.
.
  Mit Zitat antworten Zitat