UniLabel + Click

[picyka]

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;

 

[Sherzod]

Hello, 

What is the problem at the moment?

[picyka]

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

[Sherzod]

Because you are using a client side alignment!?

[picyka]

1 minute ago, Sherzod said:

Because you are using a client side alignment!?

AlingmentControl = uniAlignmentServer

How should I do?

[Sherzod]

Do you have a simple testcase to check!?

[picyka]

8 minutes ago, Sherzod said:

Do you have a simple testcase to check!?

 

Test.zip

[picyka]

I think it's my fault, I must sum the width of the left side panel together.

[Sherzod]

17 minutes ago, picyka said:

I think it's my fault, I must sum the width of the left side panel together.

So, it works now?

[picyka]

1 minute ago, Sherzod said:

Então, funciona agora?

yes, sorry.

[Sherzod]

Okay, no problem.