Entwickler-Ecke
Multimedia / Grafik - Fenster bestimmen
Holg_i - Mo 12.12.11 19:05
Titel: Fenster bestimmen
Kleines Problem.
Ich ziehe mit Drag & Drop etwas in ein TImage.
Nun müsste ich aber wissen welches MDIChild das Image binhaltet.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| Procedure TForm1.MyEndDrag(Sender, Target: TOpject; Z,Y: Integer);
Begin
IF (Target is TImage) then
Begin
????????
end;
end; |
Genau hier müsste ich nun herrausbekommen welches MDIChild das Target gehört.
Delphi-Quelltext
1:
2:
3:
4:
| For I:=0 to MDIChildCount-1 do
Begin
MDIChildren[I]????
end; |
So in der Art müsste es doch etwas geben oder?
bummi - Mo 12.12.11 22:05
mir ist nicht ganz klar was das bringen soll MDIChildren[x] kann mal das dann wieder ein anderes Fenster sein.
Wenn Du es trotzdem brauchen solltest könntest Du eine Methode GetMyMDIChildrenNumber(Sender:Tform):Integer schreiben die über die MDIChildren iteriert und mit Sender vergleicht und dann entweder -1 oder den Index zurückgibt.
Holg_i - Di 13.12.11 08:23
Ich Danke für den Lösungsversuch.
Ich habe es nun so geregelt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| IF (Target is TImage) then
Begin
For I:=0 to MDIChildCount-1 do
Begin
For II:=0 to MDIChildren[I].ComponentCount-1 do
Begin
IF MDIChildren[I].Components[II] is TImage then
Begin
IF TImage(MDIChildren[I].Components[II])=Target then
Begin
MyForm:=MdiChildren[i] as TForm2;
...
...
...
...
end;
end;
end;
end;
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!