TScrollBox BUG????

[sintronic86]

Oh, das ging aber schnell!

@Bummi
Diesen Ablauf verwende ich schon seit geraumer Zeit ohne Probleme. Zudem wird das Edit ja auch richtig zugewiesen und auf meiner Komponente angezeigt.

Ich bin immer noch am rumtesten und nun habe ich auch folgendes festgestellt (ich weiss nicht ob es hilfreich ist):
-Wenn ich meiner Komponent (dem Parent des eBezeichnung) keinen Parent zu weise, dann funkionieren alle Varianten die ich ausprobierte habe.

Bin immer noch absolut ratlos.

[Perlsau]

Jetzt nimm doch einfach mal den Rat von Bummi an, entferne das With und kopiere vor alle entsprechenden Bezeichner die Zeichenfolge "eBezeichnung.". Danach wirst du mit Sicherheit selbst erkennen, wo der Fehler lag.

Man sollte With meiden wie der Teufel das Weihwasser, es birgt zu viele Fallstricke.

[sintronic86]

@Perlsau

Selbstverständlich habe ich das auch ausprobiert, nachdem Bummi seine Antwort gegeben hat. Leider brachte das keine Besserung.

Wenn es hilft und jemand sowohl die Zeit als auch die Lust hat, würde ich auch das gesamte Projekt einmal posten.
Vielleicht könnt ihr das besser verstehen, wenn ihr es in der Gesamtheit vor der Nase habt!

[sintronic86]

Ich habe den Fehler gefunden. Und ich könnte mich so ärgern, weil es eigentlich ein Anfängerfehler ist :


Das OnCreate meiner Komponent sieht so aus (Kurzfassung):

Delphi-Quellcode:

constructor TTest.Create(...);
begin
  inherited Create(AOwner);

  Parent := ...
  Align  := ...


  Edit1 := TEdit.Create
  with Edit1 do begin
    Parent := Self;
    ...
  end;

  Edit2 := TEdit.Create
  with Edit2 do begin
    Parent := Self;
    ...
  end;

  Edit3 := TEdit.Create
  with Edit3 do begin
    Parent := Self;
    ...
  end;

  ...
end;

Ich habe das OnPaint meiner Komponente überschrieben.
Innerhalb des OnPaint habe ich einen Zugriff auf alle beinhalteten Komponenten gemacht:

Delphi-Quellcode:

Edit1.Left := ...
Edit2.Left := ...
Edit3.Left := ...

Da das OnPaint durch das zuweisen Edit1.Parent := Self ausgelöst wird, gibt es einen Fehler beim Zugriff auf Edit2.Left := ... , welches zu diesem Zeitpunkt noch garnicht existiert.
Wenn ich dafür sorge, dass das OnPaint nicht ausgeführt wird, bevor das OnCreate der Komponente gelaufen ist, läuft alles reibungslos.


Ich danke euch trotzdem allen für eure Bemühungen!

[BUG]

Du hast gerufen? Hier bin ich!