Hallo,
ich habe zwar verschiedenen Beiträge gefunden bezüglich Frames, bin aber nicht schlau daraus
geworden und alle Beispiele haben irgendwie nicht funktioniert.
Eine mainForm ruft ein Frame dynamisch auf das wiederum bei einem Buttoncklick ein anderes Frame dynamich
aufruft das dann in dem MainPanel des aufrufenden Frames angezeigt wird;
procedure TfraTour.btnTourWBClick(Sender: TObject);
var
fraTourLaden_WB1 : TfraTourLadenWB;
begin
fraTourLaden_WB1 := TfraTourLadenWB.Create(self);
fraTourLaden_WB1.Parent := self.pnlMain; // panel des Frame
fraTourLaden_WB1.vAufrufVon := 'Tagestour';
end;
in dem aufgerufenen Frame wird ein datum gewählt und
procedure TfraTourLadenWB.btnWeiterClick(Sender: TObject);
var
fraTour1 : TfraTour;
begin
dm.vWiederbesuch := TMSFNCCalendar1.Date;
dm.vWBString := ( jb_unit.getTag(dm.vWiederbesuch) + DateToStr(TMSFNCCalendar1.Date) );
dm.EinstSaveIni('TagesTour', 'WB', dm.vWBString);
if vAufrufVon = 'Tagestour' then
begin
fraTour1.btnTourWB.Text := dm.vWBString;
end;
...
self.Free;
self := nil;
end;
Fehler Im Projekt TKHKasse.exe ist eine
Exception der Klasse $C0000005 mit der Meldung '
access violation at 0x019c42cb: read of address 0xd1e51268' aufgetreten.
Habe auch scon probiert es über procedure in der Mainfrom oder in dem Datenmodul zu lösen, leider ohne Erfolg