AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Methoden des anderen Child-Forms aufrufen

Ein Thema von aschne1 · begonnen am 27. Okt 2005 · letzter Beitrag vom 28. Okt 2005
 
Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Methoden des anderen Child-Forms aufrufen

  Alt 28. Okt 2005, 18:35
Moin moin,

habe dir auch schon per PN geschickt....
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i := 0 to Form1.ComponentCount-1 do // Alle Komponenten des Hauptformular durchsuchen
    if Form1.Components[i].ClassType = TForm3 then
       with TForm3(Form1.Components[i]) do // <-- Die Zeile hat dir gefehlt bzw. deine "fehlerhafte" Zeile mit
                                             // TForm3(Form1.Components[i]).Label1.Caption := 'Uhrzeit: '+ TimeToStr(now());
                                             // ersetzen, funktioniert auch
         Label1.Caption := 'Uhrzeit: '+ TimeToStr(now()); // Diese Anweisung erzeugt den Fehler

// Form3.Button1Click(Self); // Diese Anweisung erzeugt den Fehler
end;

// Hier wird das gleiche gemacht wie bei Btn1
procedure TForm2.Button2Click(Sender: TObject);
begin
   // Prüfen, ob Klasse von TForm3, falls Form3 noch nicht erzeugt wurde
   // gibt der Click auf den Button keinen Fehler aus...
   if Form1.FindComponent('Form3') is TForm3 then
   // Wenn ja, dann können wir Casten
      TForm3(Form1.FindComponent('Form3')).Label1.Caption := 'Huhu';
end;
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz