title image


Smiley Re: nummer eines mdi-childs ermitteln?
Hallo Michl!



Meinst Du so was in der Art?





procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=IntToStr(GetMDIPos(Self));

end;





Function TForm1.GetMDIPos(AForm:TForm):Integer;

Var i:Integer;

Begin

With Application.MainForm Do Begin

i:=0;

While i
If MDIChildren[i]=AForm Then Begin

Result:=i; Exit;

End;

Inc(i);

End;

Result:=-1;

End;

End;





Viele Grüsse



OLLI





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: