Hi,
Ich hab eine Verständissfrage. Aktuell habe ich ein Stringgrid, beim doppelklick auf eine Zelle wir ein Formular aufgerufen welches weitere Informationen zu Verfügung stellt. Um es mir einfach zu machen, habe ich eine Form mit den design Elementen erzeugt (Klasse THistory). Funktioniert soweit auch. Ich mache über den folgenden Code den Aufruf, fühlt sich aber nach Speicherleck an, weis aber auch nicht wie ich es besser machen kann.
Delphi-Quellcode:
procedure TBaustellen.StringGridBindSourceDB1CellDblClick(const Column: TColumn;
const Row: Integer);
var
lHistoryView: THistory;
begin
inherited;
lHistoryView := FindComponent('History'+FDMemtableMain.FieldByName('GGUID').AsGUID.ToString.Replace('{','').Replace('}','').Replace('-','')) as THistory;
if lHistoryView = nil then
begin
lHistoryView := THistory.Create(self);
lHistoryView.Name := 'History'+FDMemtableMain.FieldByName('GGUID').AsGUID.ToString.Replace('{','').Replace('}','').replace('-','');
lHistoryView.Description := 'Änderungsverlauf '+FDMemtableMain.FieldByName('Projektnummer').AsString;
lHistoryView.TargetTable := 'Demotable';
lHistoryView.TargetGUID := FDMemtableMain.FieldByName('GGUID').AsGUID;
lHistoryView.Show;
end;
lHistoryView.Show;
lHistoryView.BringToFront;
end;
Wenn ich das Free über ein Try Finally machen, verschwindet die Form logischerweise sofort wieder. Wenn ich Release in der Form selbst bei on hide aufrufe, dann bekommt findComponent nichts davon mit, die Form existiert also dann wahrscheinlich noch. Deshalb meine Frage wie geht das richtig? ShowModal ist keine Lösung, das Fenster soll über mehrfache Instanzen geöffnet werden können.