Announcement

**Nico Bendlin** · 22.07.2002, 19:36

Schau mal unter FindComponent

**Gast_1** · 22.07.2002, 20:11

Hallo ! 
Herzlichen Dank Nico f�r deinen Beitrag, damit bin ich schonmal weitergekommen. Jetzt habe ich nur das Problem, dass mein Quelltext eigentlich klappen m�sste, aber er tut es einfach nicht. Die Caption �ndert sich einfach nicht... 
Auf meiner Form "About" existiert die Label-Komponente mit der Eigenschaft Name = 'Lab2000' und mit dem Tag '2000'. 
Ich habe folgenden Source: 
procedure TAbout.FormDblClick(Sender: TObject); 
var 
Ini: TIniFile; 
ii : Integer; 
Temp : TComponent; 
begin 
try 
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+ '\german.ini');
 with About do begin 
for ii := 0 to ComponentCount - 1 do begin 
Temp := Components[i]; 
if Temp.Tag > 0 then begin
 TLabel(Findcomponent('Lab'+inttostr(Temp.Tag))) .Caption := Ini.ReadString('translation',
inttostr(TLabel(Temp).Tag),'Error?');
 
end; 
end; 
end; 
finally 
Ini.Free; 
end; 
end; 
Ich wei� im Augenblick nicht weiter, wenn mir jemand helfen kann, w�re das eine super Hilfe ! 
Sch�ne Gr��e,

**Ulrich Gerhardt** · 23.07.2002, 13:55

Ich w�rde die fettgedruckte Zeile mal etwas aufdr�seln und mir die Einzelteile dann mal im Debugger anschauen. In etwa der Code:
<pre>
// var
// lbl: TLabel;
// s: string;
lbl := TLabel(Findcomponent('Lab'+inttostr(Temp.Tag)));
s := lbl.Caption; //(*)
s := Ini.ReadString('translation', inttostr(TLabel(Temp).Tag),'Error?'); //(**)
lvl.Caption := s;
</pre>
und dann auf die Zeile mit dem (*) nen Breakpoint gesetzt.
Nach dieser und der n�chsten Zeile kannst du ja mal kucken, wie
der String s jeweils ausschaut, und daraus (hoffentlich) weitere Schl�sse ziehen.
 HTH, Uli

**Gast_1** · 23.07.2002, 15:51

Hi Uli !
Ersteinmal danke ich dir für deine Überlegung. Ich habe deinen Codevorschlag
einmal implentiert und habe dabei folgende Ergebnisse erzielt:
Temp.Tag = 2000 
lbl := TLabel(Findcomponent('Lab'+inttostr(Temp.Tag))); //<- lb1 = nil
(!!!) 
s := lbl.Caption; //(*) <- s = '' / logisch, da die Caption einer
unbekannten Komponente halt nichts ergeben kann... 
s := Ini.ReadString('translation', inttostr(TLabel(Temp).Tag),'Error?'); //(**)
<- s = 'TestTestTestTest', Wert aus der Inidatei erfolgreich gelesen und
in s reingeschrieben 
lbl.Caption := s; //<-lb1 ist ja nil, daher wird auch kein Label geändert
! 
 
Der Fehler liegt also schon in der ersten Zeile. Stellt sich die Frage, was
hab ich falsch gemacht ? 
Die Komponente ist auch wiegesagt entsprechend bennant : Name = 'Lab2000'; 
 
Super herzlichen Dank für weitere Hilfe !!
Schöne Grüße und alles Beste, 
 PS: Selbst wenn ich einfach nur TLabel(FindComponent('Lab2000'))... angebe, findet er nichts, obwohl die Kompo 'Lab2000' hei�t

**Ulrich Gerhardt** · 24.07.2002, 10:55

Das ist komisch. Du hast also definitiv eine Komponente auf deiner
Form, deren Name-property 'Lab2000' ist? Und ein Aufruf FindComponent('Lab2000') von dieser Form aus findet nichts?
Wenn ja, dann versuch doch mal, das Problem mit einem m�glichst kleinen Programm nachzuvollziehen, welches du dann mal hier posten kannst.
Ciao. Uli

**Nico Bendlin** · 24.07.2002, 14:52

Der Owner der Komponente sollte die Frage stellen...
Wenn also das Label1 auf Form1 liegt mu� selbige die Kompo suchen...
Beispiel:

<pre>procedure TForm1.Button1Click(Sender: TObject);
var
AOwner: TComponent;
begin
AOwner := Self;
// AOwner := nil;
with TLabel.Create(AOwner) do
begin
Parent := Self;
Name := 'Label1';
Caption := 'hallo, world!';
if Assigned(Self.FindComponent('Label1')) then
ShowMessage('jet doch.')
else
ShowMessage('nich jefunden!');
Free();
end;
end;</pre>

- nic

**Gast_1** · 24.07.2002, 16:07

Hallo ! 
 
Nico, dein Quelltext funktioniert bei mir in meinem Project super klasse. Sollte
auch, sonst wäre ich total verzweifelt gewesen. Herzlichen Dank an dich,
Nico ! 
 
Jetzt habe ich folgendes Problem : 
In einem neuen Project klappt der Quelltext, den ich oben hingeschrieben habe,
astrein. Ich kann nichts beanstanden. Nun versuche ich das nochmals in meinem
Project, und schon klappts nicht mehr. Und die Kompo heißt wirklich "Lab2000",
ich habe es auch schon mit anderen Namen probiert, es geht einfach nicht, als
wenn es in diesem Project spuken würde. 
... 
Gerade habe ich noch etwas ausprobiert: 
Auf meinem Main Formular klappt mein Source. Aber in meinen "Unter"-Fenstern
klappt es nicht mehr. Liegt es vielleicht daran, wie ich die Fenster aufgerufen
habe ? Vielleicht klappt ja deswegen die FindComponent Routine nicht
? 

So rufe ich ein Unterfenster vom Mainformular auf: 
 
var 
Form : TUpdateCheck; 
begin 
Form := TUpdateCheck.Create(Self);
 Try 
If Form.ShowModal = mrOK then 
begin 
 
end; 
finally 
Form.Free; 
end;
Für eure Hilfe bin ich sehr dankbar !!!! 
Schöne Grüße,

**Nico Bendlin** · 24.07.2002, 21:25

Es mu� immer der Owner nach der Komponente fragen, 
vielleicht hilft Dir folgendes Beispiel...

<pre>program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.</pre>
//////////////////////////////////////////////////////////////////////
<pre>unit Unit1;

interface

uses
Windows, Messages,
SysUtils,
Classes, Controls, StdCtrls, Forms,
Unit2;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
AForm: TForm2;
ALabel: TLabel;
begin
Application.CreateForm(TForm2, AForm);
if Assigned(AForm) then
try
ALabel := TLabel(AForm.FindComponent('Label1'));
if Assigned(ALabel) then
ALabel.Caption := 'in Form1 von Form2 gefunden';
AForm.ShowModal();
finally
AForm.Free();
end;
end;

end.</pre>
//////////////////////////////////////////////////////////////////////
<pre>unit Unit2;

interface

uses
Windows, Messages,
SysUtils,
Classes, Controls, StdCtrls, Forms;

type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
var
ALabel: TLabel;
begin
ALabel := TLabel(FindComponent('Label1'));
if Assigned(ALabel) then
ALabel.Caption := 'von Form2 selbst gefunden';
end;

end.</pre>

- nic

**Nico Bendlin** · 24.07.2002, 21:36

um das Casting auf einen bestimmten Typ sicherer zu machen sollte man �berpr�fen, ob die gefundene Komponente �ber ein TLabel ist...
<pre>if Assigned(ALabel) and (ALabel is TLabel) then
ALabel.Caption := 'ick bin 'n TLabel';</pre>

- nic

**Claudia Sturm** · 12.09.2002, 14:14

Hallo,

ich habe folgendes Problem: In einem MDI-Formular werden Komponenten zur Laufzeit mit "with TTabSheet.Create(Self) do ..." erstellt. Verl�sst nun der Compiler das Formular und kommt sp�ter wieder an die gleiche Stelle, so merkt er nicht, dass diese Komponente bereits erzeugt und im Speicher liegen muss. Er erzeugt sie immer wieder neu. Wahrscheinlich kommt es deshalb abundzu zum Absturz. Wenn ich diese Komponente mit einer festen Variable erzeuge ("TabSheet1 := TTabSheet.Create(Self)") so kann sie im Speicher gefunden werden. Da in diesem Programm viele Komponenten erzeugt werden, m�chte ich nicht den Weg der Variablen gehen.Worin liegt der Unterschied zwischen beiden Methoden und wie kann ich vermeiden, dass bei erster Methode die Komponenten st�ndig neu erzeugt werden?Claudi

**Ulrich Gerhardt** · 12.09.2002, 14:30

Hallo Claudia, 
so wie sich deine Beschreibung liest, erzeugst du deine Tabsheets an der falschen Stelle. Beschreib doch mal, wann du die Teile erzeugst, wohin du sie plazierst usw.
 Ciao, Uli

**Claudia Sturm** · 13.09.2002, 08:04

Hallo Ulrich,
danke f�r Deine schnelle Antwort :-)
Die Komponenten werden durch den Aufruf von FormActivate erzeugt. 
Ablauf: In einem anderen Formular liegt eine Navigatorleiste. Bei Klick (Next, Prior) wird jedes Mal FormActivate aufgerufen und in Abh�ngigkeit der Datens�tze verschieden TabSheets, Edits, Labels, etc. erzeugt. Leider habe ich keine Stelle gefunden, wo diese auch wieder freigegeben werden. Mir ist auch nicht ganz klar, weshalb mein Vorg�nger Komponenten erzeugt, die zu diesem Zeitpunkt gar nicht sichtbar sind. Der Versuch, den Aufruf FormActivate herauszunehmen, da der Fokus auf dem Formular mit der Navigatorleiste bleibt, ist leider fehlgeschlagen. Da hat sich das Programm aufgeh�ngt. Ich hoffe, Du kannst etwas mit meinen Informationen anfangen.
Viele Gr��e 
Claudi

**Ulrich Gerhardt** · 13.09.2002, 08:51

Ich bin zwar nicht ganz sicher, ob ich alles richtig verstanden habe, aber f�r mich klingt das Ganze so, als m�sstest du einfach im OnClick des Navigators (*nicht* in FormActivate oder FormShow o.�.) zuerst alle zu l�schenden Komponenten l�schen und danach die neuen erzeugen - fertig.
 Deiner Beschreibung nach w�re das Problem bei dem Vorgehen, herauszufinden, welche Kompos du l�schen musst. Bevor ich mich dazu weiter auslasse, noch eine Frage: Ich vermute, du erzeugst zuerst die Tabsheets und danach alle anderen Kompos als Kinder dieser TabSheets. Ist das richtig? 
Ciao, Uli

**Claudia Sturm** · 13.09.2002, 14:57

Ja, das ist richtig. Als Parent des Tabsheet ist PageControl1 angegeben, auf das Tabsheet werden noch Labels etc. geladen.Im OnClick des Navigators sind die Komponenten nicht vorhanden (Self.FindComponent() = NIL), deshalb kann ich sie nicht l�schen. Im OnClick des Navigators wird aber FormActivate aufgerufen, wo dann die Komponenten erzeugt werden. Beim n�chsten OnClick Ereignis sind die Komponenten wieder nicht auffindbar und werden erneut erzeugt.
Ich habe testweise ein Tabsheet mit Variable (Tabsheet1 := TTabsheet.Create(Self)) erzeugt. Dieses kann beim Onclick ermittelt werden und wird nicht wieder neu erzeugt. Kann ich das Problem (die erzeugten Komponenten wieder im Speicher zu finden) ohne Variablen l�sen?
Hier ein kleiner Ausschnitt:
procedure TF_BEARB.FormActivate(Sender: TObject);
var
...
<PRE> PROCEDURE KreierePage(Sheet: integer; Bez: string);
begin
// Sheet
if NOT Assigned(Self.FindComponent('PageX' + IntToStr(Sheet))) then // CST 11.09.2002
with TTabSheet.Create(Self) do begin
Parent:= PageControl1;
Name:= 'PageX' + IntToStr(Sheet);
Caption:= Bez;
PageControl:= PageControl1;
end;

// ScrollBox draufsetzen
if NOT Assigned(Self.FindComponent('ScrollBoxX' + IntToStr(Sheet))) then // CST 11.09.2002
with TScrollBox.Create(Self) do begin
Parent:= PageControl1.Pages[Sheet];
Name:= 'ScrollBoxX' + IntToStr(Sheet);
VertScrollBar.Tracking:= FALSE;
BorderStyle:= bsSingle;
Align:= alClient
end
end;

PROCEDURE KreiereSpeedButton(Sheet, xKoor, yKoor, P: integer);
begin
if NOT Assigned(Self.FindComponent('SpeedButtonX' + IntToStr(i))) then // CST 11.09.2002
with TSpeedButton.Create(Self) do begin
Left:= xKoor;
Top:= yKoor;
Parent:= F_BEARB.FindComponent('ScrollBoxX' + IntToStr(Sheet)) as TWinControl;
Name:= 'SpeedButtonX' + IntToStr(i);
Caption:= '';
Tag:= P;
OnClick:= SpeedButtonXClick;
Glyph:= F_SETUP.BitBtn3.Glyph;
end;
end;
begin
.
.
KreierePage(TabSheetMerker[Bereich].Sheet, Bez);
.
.
end;
</PRE&gt

Announcement

Komponenten mit Variablen ansprechen

Komponenten mit Variablen ansprechen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment