Accordion

Hi Derek,

Thank you very much for the example.

I like it to do bit more. Here is the illustration of what I wanted do:

As you can see form is expanded where not enough space and following accordion header also pushed down.
Also when new accordion header expanded, previous open accordion is collapsed.

Nice work bemorhona-qt... Thank you very much..................

Only part remains that when accordion content is bigger then to expand the form size to fit in the form but I can live with what you have done.

Here is the panels version example that requires resizing the form when expanded

Tried the following but no luck

procedure Form1_OnClick (Sender: string);
begin
      if Form1.Worcester_L.Visible then
         begin
              Form1.Worcester.Caption:= '- WORCESTER';
              Form1.Worcester_L.Visible:= True;
              Form1.Height:= 331;
         end;
end;

I haven't started the project I'm thinking to use accordion. The idea is not to show every fields on the form to user immediately so that they would choose which fields are needed for the task in hand.