demo for TMSFNCPopup1

FNC TMS FNC UI Pack
1

OS: Debian 10 LXDE 64bit
Lazarus 2.0.12
FPC 3.2.0

How can i use this component TMSFNCPopup1

It is written in the instructions:

procedure TForm1.FormCreate(Sender: TObject);
begin
// assign the tableview as detail control for the popup
TMSFNCPopup1.ContentControl := TMSFNCGrid1;
// set the control as reference for position of the popup
TMSFNCPopup1.PlacementTarget := Button1;
// show the popup at the bottom of the button centered
TMSFNCPopup1.Placement := TPlacement.plBottomCenter;
end;

NOT:
TMSFNCPopup1.PlacementTarget and TPlacement.plBottomCenter

TMSFNCPopup1.Popup is run.
I don't know how to close?

2

Hi,

Please use TMSFNCPopup1.Placement := TTMSFNCPopupPlacement.ppBottomCenter; and TMSFNCPopup1.PlacementControl := Button1;

3

Thanks for the reply.
Now the call is working properly.

I would ask you to help me,

I have three components
Button1: TButton;
TMSFNCListBox1: TTMSFNCListBox;
TMSFNCPopup1: TTMSFNCPopup;

how can I do that, when I read the event

procedure TForm1.TMSFNCListBox1ItemClick(Sender: TObject; AItem: TTMSFNCListBoxItem);
begin

end;

that the component is no longer visible
(TMSFNCListBox1)

4

You can use TMSFNCPopup1.ClosePopup;

5

I have no option
TMSFNCPopup1.ClosePopup;

6

Can you try with TMSFNCPopup1.IsOpen := False;

7

Thank you, i think this solved my problem.

Best regards
Zeljko

1 Like
8

This topic was automatically closed 60 minutes after the last reply. New replies are no longer allowed.