Ovo je prvo sto mi je palo na pamet. Uzeo sam primer iz Demo foldera koji dolazi uz Delphi i promenio kod kreiranja nove mdi forme:
Code:
procedure TFrameForm.New1Click(Sender: TObject);
Var i : integer;
begin
if MDIChildCount = 0 then // Ako nemamo ni jedan MDI prozor...
TEditForm.Create(Self);
Exit
end else // Ako imamo trazimo odredjenu klasu prozora...
for i := 0 to MDIChildCount-1 do if MDIChildren[i] is TEditForm then begin
MDIChildren[i].Show;
Exit;
end;
TEditForm.Create(Self); // Ako nema te klase onda kreiramo...
end;
Ovo radi ako imas vise razlicitih klasa MDI formi u okviru jedne MDI parent forme. Za ovo drugo bih morao da izvedem eksperiment.
Videcemo kasnije...