Mustangpeak DropDownForm

 Drop Down Form Component for Delphi

  This component was initially designed to enable a my Virtual Explorer Tree to be a drop down component. During the design phase of that component it became apparent that the idea could be expanded on and a generic Roll Down form could be created. Using this form any Delphi component can be added to the Drop Down Form and any Form can become a roll down component.

Download DropDownForm here.

To use the VETDropDown it is a simple matter of setting up a few properties and call DropDownForm:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  {Align Form with Button }
  Pt.x := Button1.Left;
  Pt.y := Button1.Top + Button1.Height;
  Pt := ClientToScreen(Pt);
  { Allow the form to be resized }
  fmMulitControlDropDown.Sizable := False;
  fmMulitControlDropDown.RollDownForm(Self, Pt.x, Pt.y, -1, -1);
 end;

 

 

 

 

 


mustangpeak.net

  Last Modified on: