Hallo erst einmal vielen Dank. Das Aufrufen der TExpanderNeu.klein Procedure funktioniert. Ich komme aber in der Methode nicht weiter.
Delphi-Quellcode:
procedure TExpanderNeu.klein(Sender: TObject);
begin
BeginUpdate;
StyleLookup := 'expanderstyleneu';
Width := 125;
EndUpdate;
end;
Der Quellcode wirft eine Exeption. Ich bin wie gesagt Anfänger im Bereich der Objectorientierung.