Hallo Leute,
ich rufe aus meinem Programm ein neues Formular auf. Im Formshow erzeuge ich einige Komponenten, unter anderem zwei Buttons. Beide Buttons haben das Ereignis OnClick. Solange ich nur einem Button ein Ereignis zuweise funktioniert alles hervorragend. Sobald ich das zweite Erreignis angebe bekomme ich den Fehler "Abstrakter Fehler".
Delphi-Quellcode:
for i := 1 to 2 do
begin
dynButton := TButton.Create(self);
with dynButton do
begin
parent := self;
Name := 'dynButton' + inttostr(i);
if i = 1 then
begin
caption := '&Abbrechen';
OnClick := Abbrechen;
end
else
begin
Caption := 'Datensatz &einfügen';
OnClick := Datensatz_einfuegen;
end;
Width := 105;
Height := 25;
left := posButton - ((i - 1) * 105) - ((i - 1) * 10);
top := (pntPosition.Y + 1) * 50;
end;
end;
In der Abbrechen Methode wird lediglich ein boolscher Wert geändert und "Close" aufgerufen.
In der Datensatz_einfuegen Methode wird ebenfalls ein boolscher Wert gesetz und "Close" aufgerufen.
In FormClose werden dann alle Komponenten, auch die Buttons mittels free wieder freigegeben.
Wie gesagt, solange ich nur das Abbrechen Ereignis implementiere funktioniert es.
Kann mir jemand sagen warum das so ist, und wie ich das Problem behebe.
Gruß Steppo