Link nicht "klickbar" mit WMNCHitTest

[Christian Seehase]

Moin th3lol,

ich habe das mal etwas abgewandelt, bezüglich der Darstellung des Links:

Delphi-Quellcode:

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
  if M.Result = htClient then
    if ControlAtPos(ScreenToClient(SmallPointToPoint(M.Pos)), false) = nil then
      M.Result := htCaption;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  label1.Font.Color:=clBlue;
  label1.Font.Style:=[fsUnderline];
  Cursor:=crHandPoint;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  label1.Font.Color:=clBlack;
  label1.Font.Style:=[];
  Cursor:=crDefault;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Caption:='http://www.meineDomain.de';
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('Geht doch');
end;

Und das funktioniert bei mir so mit D7.