Problem mit Schleife

[beno]

Hallo

Ich habe ein Popup Menu gemacht und das soll immer aufgerufen werden wen ich auch eine Edit komponente draufdrücke.

Für jede Edit komponente muß ich jetzt ein menu erstellen.
Wie kann ich mir die Arbeit sparen, und alles mit einem Menu bedienen.

Mein Hauptproblem: Wie ich die Bezeichnung der Komponente übernehme.
Ich wurde gerne eine Schleife über alle Edit´s laufen.

Ist das mit der Schleife möglich?

procedure TForm2.PagesDlgDateiaussuchen1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  edit2.text:=pchar(OpenDialog1.FileName);
...
editXX.text:=pchar(OpenDialog1.FileName);
end;

Die Schleife bei erstem Programmstart soll alle Edit´s aus Form 2 mit einem Pfad füllen.



Gruß Hall

[Thomas Stutz]

Hi,

Hab mal diesen Tipp geschrieben:

...eine Komponente über ihren Namen finden/ansprechen ?
[a href="http://www.swissdelphicenter.ch/de/showcode.php?id=1048" target="_blank"]http://www.swissdelphicenter.ch/de/showcod...ode.php?id=1048[/a]