Fehlermeldung : eine geringere Sichtbarkeit (private) ?

[thomas2009]

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;

Delphi-Quellcode:

[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 ;)