Joint twe popup ?

[majid.ebru]

Hi

i have two popup.

how can i joint these and show them in one pupop ?

thank you

[wp]

Basic idea:

Code: Pascal  [Select][+][-]

1. procedure MergePopups(AResult, APopup1, APopup2: TPopupMenu);
2. var
3.   i: Integer;
4.   item: TMenuItem;
5. begin
6.   AResult.Items.Clear;
7.  
8.   for i := 0 to APopup1.Items.Count-1 do
9.   begin
10.     item := TMenuItem.Create(AResult.Owner);
11.     item.Assign(APopup1.Items[i]);
12.     AResult.Items.Add(item);
13.   end;
14.  
15.   item := TMenuItem.Create(AResult.Owner);
16.   item.Caption := '-';
17.   AResult.Items.Add(item);
18.  
19.   for i := 0 to APopup2.Items.Count-1 do
20.   begin
21.     item := TMenuItem.Create(AResult.Owner);
22.     item.Assign(APopup2.Items[i]);
23.     AResult.Items.Add(item);
24.   end;
25. end;