VAmos por partes
Cita:
thecarlos comentó:
no entiendo cuando me dices que las ventanas MDIChild estan en available forms, como ver si está o no estan???, en donde lo veo???...
|
Lo ves en Project-Options-Forms-AutoCreate Forms o Abailable Forms
Cita:
thecarlos comentó:
y cuando me sugieres crearlas con el codigo que me sugieres, donde se supone que debo poner el codigo, es por mdichild, en que parte??
|
Bueno, en la opción de menú desde la que lances una pantalla MDIChild (por ejemplo "Gestión de Clientes"
)
Cita:
thecarlos comentó:
.... y la funcion VENTANACREADA como podria hacerlo...
|
Pues mi función sería algo así
Código:
function VentanaCreada(FormMDI : TForm; NomFinestra : string) : boolean;
var
i : integer;
begin
Result := false;
i := 0;
while (i <= FormMDI.MDIChildCount - 1) and
(NomFinestra <> FormMDI.MDIChildren[i].Name) do
inc(i);
if i <= FormMDI.MDIChildCount - 1 then
Result := true;
end;
Se que no es la mejor manera, pero es una manera
Espero te sirva