Исходник программы,
показывающей пример создания компонента, реализующего составное
меню - аналог панели, на которую накидываются контролы и отображающегося
в виде всплывающего меню - Автор
Александр (Rouse_) Багель Комментарии пользователей:
Dmitriy Roshchin 06 сентября 2014
procedure TForm1.Button1Click(Sender: TObject);
var FWPopupPanel1 : TFWPopupPanel;
begin
FWPopupPanel1 := TFWPopupPanel.Create( form1 );
FWPopupPanel1.ParentWindow:=( form1.HANDLE);
FWPopupPanel1.Parent:=( form1.BUTTON1);
Button1 := TButton.Create ( self );
BUTTON1.PARENT := FWPopupPanel1;
FWPopupPanel1.Popup(Button1.ClientToScreen(Point(0, Button1.Height)));
end;
Александр Зыков 10 сентября 2013
не могли бы вы скинуть установочный вариант компонента? или объяснить как его устанавливать
