Ein freundliches Hallo an alle,

ich habe ein StringGrid von TStringGrid abgeleitet und ihm ein Kontextmenu spendiert, über das Zeilen und Spalten eingefügt und gelöscht und auch Zellinhalte in die Zwischenablage kopiert werden können.

Meine Frage: Wenn mehrere solcher Grids in einem Programm verwendet werden und eines der Grids wird freigegeben, wie ist es dann im Destructor zu handhaben? Beim ersten Versuch habe ich "PopupMenu.Free" und "oClipboard.Free" eingetragen, weil sie im Constructor erzeugt werden und einen Laufzeitfehler erhalten.

Dabei hat "PopupMenu.Free" schon beim ersten Grid zu einem Fehler geführt und "oClipboard.Free" erst beim zweiten.
Da ich das Menü mit "PopupMenu := TPopupMenu.Create ( Self );" direkt zugewiesen habe wird es vielleicht von "TDrawGrid" freigegeben.

Bisher handhabe ich es so, dass Objekte, die ich selbst erzeuge, auch von mir freigegeben werden. Gibt es da noch andere Regeln??

Grüße von der verregneten Nordsee

Peter

Peter18 hat folgendes geschrieben :

Da ich das Menü mit "PopupMenu := TPopupMenu.Create ( Self );

Du übergibst ja self als owner. Damit wird das Popupmenu automatisch freigeben, wenn Du das Grid freigibst (bzw. es freigegeben wird).
Wenn Du es selbst freigeben möchtest, dann erzeuge es lieber mit PopupMenu := TPopupMenu.Create (nil)

Hallo Jens,

Dank Dir für Deine Antwort. Ich möchte verstehen, was da geschieht. Mit "Self" wird das Popupmenu also in der Objektliste eingetragen und automatisch freigegeben? Gilt das nur für die beendete Instanz vom Stringgrid oder für alle? Werden die Objekte der Liste freigegeben, bevor der Destructor aufgerufen wird?

Wenn das automatisch geschieht ist es ja in Ordnung.

Grüße von der micht mehr verregneten Nordsee

Peter

Durch das self wird das Menü in der Liste untergeordneter Elemente des Grids eingetragen und somit
automatisch beim Destruct des Grids freigegeben.

Wo der Fehler auftritt hängt von der Realisierung Deines Destructors ab:
Wenn Du vor dem "inherited" das Menü freigibst wird in der VCL ein Fehler auftreten weil
das originäre Grid nochmal das Menü freigeben will.

Gibst Du das Menü nach dem Inherited im Destructor frei erfolgt die Fehlermeldung bei Deinem .free

Du must Dich also entscheiden ob Du
1) Im Konstruktor als Parent "nil" angibst und im Destructor dann selbst das Menü freigibst
2) oder als Parent "self" angibst und im Destruktor nichts tust weil das Grid als Nachfahr von TControl alles übernimmt.

Grüße von der verregneten Ems

PS - Interna:

Wenn Du dem Konstruktor einer Component einen nicht-Nil-Wert übergibst ruft der intern immer das InsertComponent der so übergebenen übergeordneten Komponente auf: (Auszug aus der VCL)

constructor TComponent.Create(AOwner: TComponent);
begin
FComponentStyle := [csInheritable];
if AOwner <> nil then AOwner.InsertComponent(Self);
end;

Alles was du in einer Klasse erzeugst und freigibst, gilt immer nur für eine Instanz, alle anderen Instanzen bleiben davon unbetroffen.

Hallo mandras, hallo baumina,

Dank Euch für Eure Antworten. Prinzipiell rufe ich im Constructor zuerst "inherited" auf und erzeuge dann alle anderen Objekte. Beim Destructor rufe ich "inherited" als letztes auf. Beim StringGrid führt das jedoch zu einem Fehler. Da schwimm ich auch noch.

Objekte mit Parent werden also automatisch freigegeben, alle anderen muß ich selbst beseitigen?

baumina, so hatte ich das auch erwartet, aber ich erzeuge mehrere StringGrids. Beim Ersten geht "oClipboard.Free" klar, aber bei den folgenden tritt ein Fehler auf. Mit "if Assigned( oClipboard ) then oClipboard.Free;" umgehe ich diesen Fehler. Das verstehe ich nicht.

Grüße von der trüben aber trockenen Nordsee (Die See ist natürlich nicht trocken )

Peter

Hast Du von oClipboard denn für jede Instanz von den Stringgrids auch eine eigene Instanz? Zeigt oClipboard an der Stelle auch wirklich auf die Instanz, die zur Stringrid-Instanz gehört?
Ich denke, Du wirst mal ein bisschen Code zeigen müssen, um das rauszufinden.

Hallo Jens

nochmals Dank.

Im Constructor steht


Falls das nicht genügt, sag mir, was Du brauchst.

Grüße von der etwas helleren Nordsee

Peter

Wahrscheinlich ist deine Instanz oClipboard vom Typ TClipboard, welches wiederum die Windows-Zwischenablage widerspiegelt und einer Sonderbehandlung bedarf, hier ein Auszug aus der Hilfe:

Zitat:

TClipboard repräsentiert die System-Zwischenablage. TClipboard ist ein Container für die System-Zwischenablage, die alle Informationen, die in einer Anwendung ausgeschnitten oder kopiert wurden, enthält. Instantiieren Sie einzelne TClipboard-Objekte nicht durch einen Aufruf des Kontruktors, sondern verwenden Sie die globale Instanz von TClipboard, die von der Funktion Clipboard zurückgegeben wird. Durch den Einsatz dieser globalen Instanz kann die Anwendung eine einzelne Instanz von TClipboard für alle Zwischenablagenoperationen verwenden, und ein unbeabsichtigtes Löschen der Zwischenablage wird ausgeschlossen.

Das Clipboardobjekt ist ein Sonderfall. Das ist eine Instanz von TClipboard und davon soll nur eine Instanz existieren (das nennt man Singleton). (*)
Nun kopierst Du praktisch den Zeiger von Clipboard nach oClipboard (jetzt zeigen beide Variablen auf die selbe Instanz!!). Wenn Du nun oClipboard.Free aufrufst, ist diese eine Instanz freigeben.

Du solltest auf oClipboard komplett verzichten und direkt Clipboard benutzen (in allen Instanzen von Deinen Stringgrid). Um die Freigabe von Clipboard musst Du Dich in diesem Fall nicht kümmern. Das wird im finalization-Abschnitt der Unit Clipbrd erledigt.

(*) eigentlich ist Clipboard eine Function, die eine Instanz von Clipboard zurückliefert, aber das tut hier nichts zur Sache.

Hallo Baumina, hallo Jens,

nochmals Dank! Das heißt also "oClipboard.Free" ist überflüssig und ich kann auch "Clipboard.AsText := 'Text';" schreiben?

Grüße von der Nordsee

Peter

Peter18 hat folgendes geschrieben :

nochmals Dank! Das heißt also "oClipboard.Free" ist überflüssig und ich kann auch "Clipboard.AsText := 'Text';" schreiben?

Jepp!