Jump to content

UniLabel + Click


picyka

Recommended Posts

Is there a possibility to click on a label and get its left and top position?

 

Note:

 

procedure TMainForm.lbColorLayoutClick(Sender: TObject);
begin
  with TUniFormCorLayout.Create(UniApplication) do
  begin
    try
      Left := Self.lbColorLayout.Left + Width;
      Top := Self.lbColorLayout.Top + lbColorLayout.Height + 28;
      ShowModal;
    finally
      Free;      
    end;
  end;
end;

 

Link to comment
Share on other sites

22 minutes ago, Sherzod said:

Hello, 

What is the problem at the moment?

I clicked on the color icon, it doesn't open where I want

 

procedure TMainForm.lbColorLayoutClick(Sender: TObject);
begin
  with TUniFormCorLayout.Create(UniApplication) do
  begin
    var lControllerUsuario := TControllerUsuario.Create(UniMainModule.GetClientApiApp,UniMainModule.UserInfo);
    try
      var lUsuario := lControllerUsuario.Find(UniMainModule.UserActive.Id);
      if UniMainModule.UserActive.MenuSuperior then
      begin
        Left := Self.lbColorLayout.Left + Width;
        Top := Self.lbColorLayout.Top + lbColorLayout.Height + 28;
      end
      else
      begin
        Left := Self.lbColorLayout.Left + Width;
        Top := Self.lbColorLayout.Top + lbColorLayout.Height;
      end;
      ShowForm(lControllerUsuario, lUsuario);
    finally
      Free;
    end;
  end;
end;

Form: Position = poDesigned

Capturar.PNG

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...