Instalação de Pacotes via OPM: TDINotebook

Um jeito diferente de ao invés de abrir janelas modais(SDI) ou multiplos documentos(MDI) é abrir usando tabs, método conhecido como TDI. A Interface TDI geralmente é usada de dois modos: (1) com varias tabs, similar ao Google Chrome ou Firefox onde cada tab representa uma janela diferente e independente e o TDINotebook já vem pronto para usar de modo, para quem estava acostumado com a interface MDI talvez este método seja o mais aproximado ou (2) manter uma unica tab com a "orelhinha" invisivel e fazer forms serem embutidos dentro delas e então com as "orelhinhas" invisiveis podemos trocar de tab onde cada uma delas (ou apenas uma) terá seu próprio form.

O vídeo abaixo mostra o que é uma interface TDI e como instalar o componente TDINotebook:

Repare que o aplicativo esta sempre se aproveitando da janela principal ao inves de criar uma nova janela sobre esta.

Você pode usar método similar a opção #2 através da criação de um form dentro de um panel ou PageControl, mas se o fizer deverá lembrar-se também de destruí-lo manualmente e é aí que o TDINotebook ajuda, pois ao fechar uma tab o que estiver dentro dela(um form) será destruido também. Também haverá menos código quando precisar retornar a uma janela anterior.

Inclusive os aplicativos mobile usam este conceito de tabs, mas nenhum aplicativo se parece com o Google Chrome ou Firefox porque apenas uma única tab fica visivel e a mesma é chaveada entre os forms, mostrando apenas um form por vez.

Se você gostou dessa abordagem então instale este componente.

Maiores informações em:
TTDINotebook - Lazarus wiki (freepascal.org)

Escrevi uma demo onde você poderá ver na prática a simpicidade de criar programas dessa forma:
Demo usando TTDINotebook

Basicamente, você inclui o componente TDINotebook na sua janela principal e para o aplicativo não ter a cara de navegador Gooogle Chrome ou Firefox, você inclui essas linhas no OnCreate do seu form principal:

// Um TDINotebook não funciona sem um MainMenu para associar. // Isso é estranho, mas tenho que aceitar. A instrução abaixo // é inóqua, você tem de fazer a associação abaixo em tempo // de design TDINoteBook1.MainMenu:=MainMenu1; // TDINoteook cobrirá a área inteira, remova os comentários para // deixar sua aplicação não ter a cara de navegador de google chrome // caso contrário, ao deixá-las ficará pratico, mas com cara de google chrome TDINoteBook1.Align:=alClient; // Se as suas janelas tiver um botão de fechar ou sair então é bom // esconder o botão de fechar "X" na tab com tbNone, caso contrário // use tbMenu ou tbButtom para representar uma opção ed fechamento //TDINoteBook1.CloseTabButtom:=tbButtom; // tbNone, tbMenu, tbButtom // nboHidePageListPopup: Não tem popup para mostrar as tabs(paginas) //TDINoteBook1.Options:=TDINoteBook1.Options+[nboHidePageListPopup]; // nboShowAddTabButton: Não mostra opção para adicionar nova tab //TDINoteBook1.Options:=TDINoteBook1.Options+[nboShowAddTabButton]; // nboShowCloseButtons: Botões de fechar não serão exibidos //TDINoteBook1.Options:=TDINoteBook1.Options+[nboShowCloseButtons]; // Mostra ou não as orelhinha nas tabs TDINoteBook1.ShowTabs:=false; // Como se trata de um aplicativo comercial e não um navegador então // é melhor esconder outros botões TDINoteBook1.TDIActions.CloseAllTabs.Visible:=false; TDINoteBook1.TDIActions.CloseTab.Visible:=false; TDINoteBook1.TDIActions.NextTab.Visible:=false; TDINoteBook1.TDIActions.PreviousTab.Visible:=false; TDINoteBook1.TDIActions.TabsMenu.Visible:=false;

procedure TForm1.actClientesExecute(Sender: TObject); var i:Integer; begin i:=TDINoteBook1.FindFormInPages(fmClientes); if i<0 then fmClientes:=TfmClientes.Create(Self); TDINoteBook1.ShowFormInPage(fmClientes, i);

O codigo acima é para ser didático, você pode acrescentar muito mais.

Ainda ficou com duvida? Assista ao vídeo de como criar uma aplicação TDI, ao estilo "mãos na massa":

Claro que usar o componente TDINotebook pode facilitar a criação de uma aplicação TDI, porém não é o único meio de fazê-lo, podemos criar uma aplicação TDI usando o componente TPageControl. Como? Veja o vídeo a seguir onde demonstro como fazê-lo: