请问如何做到象网页连接一样,当鼠标移到一行字上面,指针就变成手形,点击它触发onclick事件。
如显示另一个form

解决方案 »

  1.   

    procedure TForm1.Label1MouseEnter(Sender: TObject);
    begin
    label1.Cursor:=crHandPoint;end;procedure TForm1.Label1MouseLeave(Sender: TObject);
    begin
    label1.Cursor:=crDefault;
    end;procedure TForm1.Label1Click(Sender: TObject);
    begin
    form2.show;
    end;
      

  2.   

    能,将控件的属性Cursor设为你想要的图标就可以了.
      

  3.   

    procedure TForm1.Label1Click(Sender: TObject);
    begin
    form2.showmodal;//这样窗口会一直在前
    end;
      

  4.   

    画鼠标可以使用Tools菜单下的image editor