Réponse acceptée !
Ok, alors voici une proposition :
procedure TFace.profil1Click(Sender: TObject);
begin
if (face.MDIChildCount<>0) then
begin
if not Assigned(Profil) then
profil:=Tprofil.create(face);
profil.show;
end
else
face.next;
end;Mais, dans ce cas, quel est l'intérêt de tester la propriété MidChildCount ?
May Delphi be with you !
Pensez à cliquer sur
Réponse acceptée lorsque la réponse vous convient.