Fehlermeldung : eine geringere Sichtbarkeit (private) ?

Hallo

ich erhalte diese Fehlermeldung an diese Zeile, was ich nicht versehen konnte !

Delphi-Quellcode:

			procedure TForm2.FormResize(Sender: TObject);

begin

Form2.Edit1.Text := IntToStr(Form1.Width); // Fehler-Zeile

Form2.Edit2.Text := IntToStr(Form1.Height);

end;

[Hinweis] Unit2.pas(40): Durch das Überschreiben erhält die virtuelle Methode 'TForm2.CreateParams' eine geringere Sichtbarkeit (private) als die Basisklasse 'TForm' (protected)

**Bernhard Geyer**

Ist es wirklich die Zeile? Der Fehler deutet darauf hin das du die Definition von CreateParams im Private-Teil der Klasse hast und nicht im gleichen Abschnitt wie bei TForm.

**DeddyH**

Und deshalb genügt es im Normalfall, die Deklaration von private nach protected zu verschieben

Fehlermeldung : eine geringere Sichtbarkeit (private) ?

Fehlermeldung : eine geringere Sichtbarkeit (private) ?

Re: Fehlermeldung : eine geringere Sichtbarkeit (private) ?

Re: Fehlermeldung : eine geringere Sichtbarkeit (private) ?

Forumregeln

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: Fehlermeldung : eine geringere Sichtbarkeit (private) ? 8. Feb 2009, 17:59 Ist es wirklich die Zeile? Der Fehler deutet darauf hin das du die Definition von CreateParams im Private-Teil der Klasse hast und nicht im gleichen Abschnitt wie bei TForm. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.544 Beiträge Delphi 11 Alexandria	#3 Re: Fehlermeldung : eine geringere Sichtbarkeit (private) ? 8. Feb 2009, 18:37 Und deshalb genügt es im Normalfall, die Deklaration von private nach protected zu verschieben Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat