TEdit auf TPanel zur Laufzeit

[HPW]

Hallo,

Ich versuche gerade ein TEdit zur Laufzeit auf ein TPanel welches auch zur Laufzeit erzeugt wird zu plazieren. Aber es wird nicht angezeigt.

Code:

            TPanel.Create(self).Name := 'TXTPAN_100';
            with TPanel(FindComponent('TXTPAN_100')) do
            begin
              Parent      := Groupbox2;
              BevelInner  := bvNone;
              BevelOuter  := bvNone;
              Borderstyle := bsSingle;
              Left        := 260;
              Top         := 280;
              Height      := 25;
              Width       := 153;
              Color       := clInfoBk;
              Tabstop     := False;
            end;

            TEdit.Create(self).Name := 'TXT_100';
            with TEdit(FindComponent('TXT_100')) do
            begin
//              Parent     := Groupbox2;
              Parent      := TPanel(FindComponent('TXTPAN_100'));
              Left        := 4;
              Top         := 4;
              Height      := 23;
              Width       := 145;
//              Color       := clInfoBk;
              Color       := clRed;
              Tabstop     := False;
              Borderstyle := bsNone;
              Text       := 'Test1';
            end;

Das soll ein Workaround sein um das Tedit optisch vertical zu zentrieren.
Die Positionen sollen dann noch gerechnet werden.
Wenn ich dem TEdit die Groupbox2 als Parent zuweise, erscheint es.
Delphi zeigt keine Fehler, aber TComponent ist wohl nicht TWinControl.
Wie bekommt man das hin?

Grüsse,

Hans-Peter

[himitsu]

Findest FindComponent überhaupt was? (oder liefert es nur NIL)

Wieso merkst du dir nicht die Instanz des zu suchenden Controls nicht gleich?

Delphi-Quellcode:

TPanel.Create(self).Name := 'TXTPAN_100';
with TPanel(self.FindComponent('TXTPAN_100')) do
begin
  ...

Delphi-Quellcode:

EineVariable := TPanel.Create(self);
with EineVariable  do
begin
  Name := 'TXTPAN_100';
  ...

Und dann beim Edit

Delphi-Quellcode:

Parant := EineVariable{die des Panels};

Zitat:

Delphi zeigt keine Fehler,

Wieso sollte es?

Zitat:

Delphi-Quellcode:

Parent := TPanel(FindComponent('TXTPAN_100'));

Delphi-Quellcode:

Parent := FindComponent('TXTPAN_100') as TPanel;
// oder
Parent := FindComponent('TXTPAN_100') as TWinControl;

Aber wie gesagt, eigentlich solltest du besser eine Variable nutzen.

Wenn ich vor 5 Sekunden ein Haus gebaut hab, dann ruf ich doch auch nicht das FBI an, damit die mir sagen, wo das Haus nochmal steht, welches ich jetzt einrichten will.

Zitat:

aber TComponent ist wohl nicht TWinControl.

Ist es auch nicht.
Ein TWinControl ist aber ein TComponent. :roll:

[Bummi]

Der ganze With Kram ist kontraproduktiv

Delphi-Quellcode:

Parent     := TPanel(Self.FindComponent('TXTPAN_100'));

[HPW]

Danke für die Tips.
Hat mir weiter geholfen.

:-D

[himitsu]

Stimmt, FindControl sucht ja an der Sttelle, ob es IM Edit das Edit findet, obwohl es ja IN DER Form ist (oder wo dieser Code grade steht und was dort halt SELF darstellt)

Zitat:

Delphi-Quellcode:

Parent := TPanel(TEdit(FindComponent('TXT_100')).FindComponent('TXTPAN_100'));

Aber wie gesagt, wenn du deinen Debugger mal gefragt hättest, dann hätte der dir gesagt, daß nichts gefungen wurde. :angle2:

[HPW]

Hallo,

Nochmal Danke für die konstruktiven Beiträge.
Ich bin halt nicht der 'gelernte' Delphi Profi.

Zitat:

Der ganze With Kram ist kontraproduktiv

Zu meinen Verständnis: Warum ist das Kontraproduktiv?

Zitat:

Aber wie gesagt, wenn du deinen Debugger mal gefragt hättest, dann hätte der dir gesagt, daß nichts gefungen wurde.

Sicher, aber dieser Code ist in einer Dll die als Plugin in einer anderen Anwendung läuft.
Da habe ich so meine Probleme mit dem Debuggen.

Grüsse,

Hans-Peter

[Bummi]

Zitat:

Zu meinen Verständnis: Warum ist das Kontraproduktiv?

Weil es sich
1. nicht debuggen lässt
2. man höllisch aufpassen muss die Properties welcher Klassen man gerade anspricht
3. ein Code der funktioniert, bei der Umstellung auf eine neuere Delphiversion es u.U. dies nicht mehr tut weil eine der beteiligten Klassen gegf. eine neu gleichnamige Property erhalten hat
4. es nicht zügig nachvollziehbar ist

Es gibt hierzu im Forum geteilte Meinungen, auch Verfechter für Konstrukte wie

Delphi-Quellcode:

With Listbox1,Edit1,Shape1,Myrect do
begin
end

sind zu finden ....

[himitsu]

With ist hier ein Problem, weil alle viele irgedwie denken FindComponent währe eine Funktion.
> nicht denken, sondern wissen und notfalls nachsehn und auch debuggen

FindComponent ist aber eine Methode, welche in der Ownerbeziehung nachsieht.
In der VCL sind standardmäßig alle Komonenten mit der Form als Owner/Besitzer erstellt, weswegen dort fast immer das pure FindComponent funktioniert, da es dann gegen Self und somit über die Form läuft.
Beim With wird das aber umgebogen und schön läuft bei dir das eine FindComponent nicht mehr über die Form, sondern über's Edit und dein Edit ist nicht der Owner des Panel, also kann das Panel darin auch nicht gefunden werden.

With kann einem die Arbeit erleichtern, aber man muß aufpassen und wenn man keine Ahnung hat, dann sollte man es besser lassen.
PS: In XE2 sind jetzt einige Codes plötzlich kaputt, weil z.B. das TRect und TPoint endlich um ein paar nette Record-Methoden erweitert wurde, was vorallem bei sowas wie

Delphi-Quellcode:

With Listbox1,Edit1,Shape1,Myrect do

einige Probleme bereitete. :stupid:

[sx2008]

Du solltest den Parent möglichst spät zuweisen.
Solange noch kein Parent zugewiesen wurde, sind Änderungen an den Properties Left, Top, Font, Caption,usw. fast "kostenlos".
Sobald aber der Parent gesetzt wurde und ein Window Handle existiert, hat jede Zuweisung an obige Properties eine Kaskade an Funktionsaufrufen und Window-Messages im Hintergrund zur Folge.