Aplicar Fun��o a todos os forms...

Question

Pessoal, vou tentar explicar o + claro poss�vel...H� alguma maneira de aplicar uma fun��o a todos os forms da aplica��o, colocando esta fun��o apenas no form principal...� + ou menos o seguinte:suponh...

Carlosk · Answer

tem...vc devera declarar o cabecalho da funcao abaixo do type do form, junto com as funcoes que o delphi cria automaticamente... e devera redeclara-la apos o implementation usando o nome do form na frente da funcao... exemplo: se eu tenho uma funcao pegastring, que retorna uma string, primeiro vou declara-la assim: function pegastring: string;na parte de implementation, vou declara-la assim: nomedoform.pegastring: string;  begin   ...  end;feito isso, eh soh colocar no seu segundo form, o nome do form principal na clausula uses...na hora que for chamar a funcao, chame assim: nomedoform.pegastringpra mim funciona...abracos...

Erucci · Answer

Caro AmigoVoc� pode fazer assim: Orientado a Objetos....Cria um Formul�rio padr�o com v�rias fun��es... exemplo: mudar a cor de foco no edit..Dai... � s� voc� criar os formul�rios herdando as caracter�sticas desse seu formul�rio.... Clique em FILE ... NEW... OTHER... na paleta Project 1 e escolha Form1 com a op��o INHERIT selecionada...assim o formul�rio FORM1 ser� criado com todas as caracter�sticas do formul�rio de fun��es....valewzlu�s...

Rafael Heise · Answer

� isso mesmo, se voc� quer fazer isso, o jeito mais f�cil � usando heran�a, que na linguagem orientada a objeto � super f�cil, e consequentemente o delphi tamb�m!...

Beppe · Answer

Quando um form � fechado � chamado o evento OnClose do mesmo, se um existe. Coloque c�digo neste evento para realizar o que quer. Para n�o precisar escrever isto em cada form, voc� escreve um manipulador de evento compartilhado.

procedure TMainForm.OthersFormsClose(Sender: TObject; var Action: TCloseAction);
begin
...
end;

Quando voc� for criar um form, coloque isto junto:

FormX := TFormX.Create(Application);
FormX.OnClose := MainForm.OthersFormsClose;

F�rum Aplicar Fun��o a todos os forms... #196475