zugriff von aussen

Rund um die LCL und andere Komponenten
khh
Beiträge: 489
Registriert: Sa 5. Apr 2008, 09:37
OS, Lazarus, FPC: Win Vista,Win 7 (L 0.9.29 FPC 2.4.1)
CPU-Target: 32Bit /64 Bit
Wohnort: Nähe Freiburg i.Br.

Beitrag von khh »

alsooo, ich hab grad noch in Erfahrung gebracht, dass die Form Owner _aller_ Komponenten sein muss, damit findcomponent funktioniert.
Das ist ja schon mal nicht der Fall.
Ich werd das Ganze morgen mal entsprechen umbauen.

Gruss KH

pluto
Lazarusforum e. V.
Beiträge: 7192
Registriert: So 19. Nov 2006, 12:06
OS, Lazarus, FPC: Linux Mint 19.3
CPU-Target: AMD
Wohnort: Oldenburg(Oldenburg)

Beitrag von pluto »

Eigentlich ist es egal wer der Owner ist. Ich hatte damit bisher noch keine Probleme.
Ob da ein Panel drunter liegt oder nicht spielt eigentlich keine große rolle.
MFG
Michael Springwald

khh
Beiträge: 489
Registriert: Sa 5. Apr 2008, 09:37
OS, Lazarus, FPC: Win Vista,Win 7 (L 0.9.29 FPC 2.4.1)
CPU-Target: 32Bit /64 Bit
Wohnort: Nähe Freiburg i.Br.

Beitrag von khh »

hallo zusammen,
alsoo
ich bin das ganze grad nochmal in Ruhe durchgegangen und hab den Fehler gefunden :D
ich hatte beim Erstellen des Label den Fehler begangen self zu übergeben

myLabel := TLabel.create(self);

richtig muss mypage übergeben werden

myLabel := TLabel.create(myPage);

somit funktioniert jetzt folgendes Konstrukt fehlerlos:

TPage(MyNotebook.FindComponent('Seite1')).caption:='hallo Seite xxl';
Tlabel(MyNotebook.page[0].FindComponent('myLabel1')).caption:='hallo Label';

und damit funktionieren wohl auch die Konstrukte die mit Assigned
die Fehler abfangen.


Ich danke euch für eure Bemühungen und Hilfen.
Was wäre ich ohne dieses Forum!!!

Gruss KH

pluto
Lazarusforum e. V.
Beiträge: 7192
Registriert: So 19. Nov 2006, 12:06
OS, Lazarus, FPC: Linux Mint 19.3
CPU-Target: AMD
Wohnort: Oldenburg(Oldenburg)

Beitrag von pluto »

ja das Forum ist schon was. Dann hatte ich also recht mit dem
myLabel := TLabel.create(self);
aber schön das das jetzt endlich geht.
MFG
Michael Springwald

Antworten