Zugriffsverletzung bei zuweisung von Self

[Deep-Sea]

Vlt. klappt schon das Create nicht, und Delphi zeigt fälschlicher Weise auf die nächste Zeile (ich kenn sowas zu genüge) ?!
Ansonsten wie immer: Nimm immer mehr raus, bis du den Fehler findest

[Nuclear-Ping]

Das ist die Stelle, wo er einen neuen Termin anlegt:

Delphi-Quellcode:

procedure Tonl_kalender.FormMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
   xp,yp      : Longint;
begin
   xp:=(x-FUserWidth) DIV TimeWidth;
   yp:=(y-FHeaderHeigth) DIV TimeHeight;
   If (xp>=0) and (yp>=0) then
   Begin
      FCreateTermin:=True;
      FNewtermin:=Tonl_kaltermin.Create(Self);
      FNewtermin.Parent:=Self;
      FNewtermin.Color:=clBlack;
      FNewtermin.Left:=x;
      FNewtermin.Top:=y;
   End;
end;

Das Self bezieht sich hier auf Tonl_kalender, er hat auch kein with ... do drin. Ich vermute der Fehler kommt daher, weil Tonl_kalender vom Typ TWinControl ist. Warum kann ich nicht sagen, ist aber so beim drüberblicken das einzig nachvollziehbare. Warum leitest du von TWinControl ab?

[DeddyH]

Was ist denn Tonl_kaltermin für ein Objekt?

[Deep-Sea]

Zitat:

Zitat von DeddyH

Was ist denn Tonl_kaltermin für ein Objekt?

Delphi-Quellcode:

Tonl_kaltermin = class(TPanel)

Siehe erstes Post ;)

[franktron]

Zitat:

Zitat von DeddyH

Was ist denn Tonl_kaltermin für ein Objekt?

Steht im 1. Thread

Ich hab jetzt mal zum testen TOnl_kalender von TCostumPanel abgeleitet, gleicher Effect es muss amTonl_termin liegen mit TPanel gehts nämlich.

Aber was ????


P.S. ich hasse Kombo Entwicklung :wall:

[mkinzler]

IMHO hat ein TWinControl keinen Parent

[franktron]

Ich habs

Delphi-Quellcode:

constructor Tonl_kaltermin.Create(AOwner: TComponent);
begin
   inherited; << Das wahr nicht da  :wall:   :wall:   :wall:   :wall: 
   //
end;

[Nuclear-Ping]

Hihi :thumb: Das sind immer die geilsten Fehler ...

[Deep-Sea]

Zitat:

Zitat von franktron

Ich habs

Delphi-Quellcode:

constructor Tonl_kaltermin.Create(AOwner: TComponent);
begin
   inherited; << Das wahr nicht da  :wall:   :wall:   :wall:   :wall: 
   //
end;

Hab ich's nicht gesagt? :P

Zitat:

Zitat von mkinzler

IMHO hat ein TWinControl keinen Parent

Das wäre ja schrecklich, wenn es so wäre :shock: