Antes que nada, les pido disculpas por enviar un mail que sólo yo
entiendo....tendría que ser menos apresurado y leer lo que voy a enviar...
Y lo que hago es lo siguiente :
procedure TClientes.btnAddClientesClick(Sender: TObject);
//Al hacer click en un botón...
begin
Application.CreateForm(TABMClientes,ABMClientes); //Creo el form...
ABMClientes.Tag := 1; //Asigno un valor al tag del form...
ABMClientes.Show(); //y muestro el Form
end;
Y en el OnActivate del form ABMClientes...
procedure TABMClientes.FormActivate(Sender: TObject);
begin
Case ABMClientes.Tag of
1 : Begin
//Proceso datos...
End;
2 : Begin
//Proceso otros datos...
End;
End; // case
end;
Esta modalidad la uso seguido y no he tenido problemas..., pero con
forms comunes, nunca usé los MDI...
El tema es que el ABMClientes.Tag me lo muestra en cero...
Creo que ahora se entiende un poco mas, ¿no?
Gracias por la ayuda...
Walter