Komponente vor dem Platzieren umbenennen / OpenTools API

[CG2003]

~push~
Kann mir denn keiner helfen?

[CG2003]

Und nochmal: ~push~

Irgendwer wird mir doch helfen können, oder?!

[chaosben]

Ich werd morgen mal in unsere Sourcen sehen und hoffentlich den Fehler finden.

[CG2003]

Zitat von chaosben:

Ich werd morgen mal in unsere Sourcen sehen und hoffentlich den Fehler finden.

Das wäre super. Vielen Dank!
Wie gesagt, ich möchte ja nur "erkennen", das eine Komponente auf dem Form plaziert wird, und die dann direkt umbenennen. So wie es die GExperts oder auch Euer CNA machen.

[chaosben]

Gib doch mal zum Spass den aktuellen Namen der Komponente aus. Wenn du den hast, klappt auch das umbennen. Wenn das nicht klappt, musst du mal prüfen ob der Editor der ist, den du zu finden hoffst. (Entweder per Messagebox oder per "Logdatei schreiben") Das ist ne langwierige Prozedur aber es geht imho nicht anders.

[CG2003]

Zitat von chaosben:

Gib doch mal zum Spass den aktuellen Namen der Komponente aus. Wenn du den hast, klappt auch das umbennen. Wenn das nicht klappt, musst du mal prüfen ob der Editor der ist, den du zu finden hoffst. (Entweder per Messagebox oder per "Logdatei schreiben") Das ist ne langwierige Prozedur aber es geht imho nicht anders.

Hallo, das klappt leider nicht. Ich bekomme jedesmal, wenn ich eine Komponente auf dem Form plaziere eine AV. Erbitte Hilfe...

[CG2003]

So, hier nochmal die aktuelle Variante. Diese funktioniert leider noch nicht.
Anscheinend hat er Probleme, beim Zuordnen der Variable "Compo", welches die platzierte Komponente sein soll.

Oder liegt der Fehler evtl. doch ganz woanders?
Ich hoffe, es kann mir einer helfen, denn mir scheint, ich bin nah dran...

[chaosben]

Also, bei mir geht dein Code wunderbar unter einer Voraussetzung: Das CNA-Package ist nicht installiert. Da gibt es scheinbar "Antipathien" zwischen deinem Package und dem CNA. Die ComponentRenamed-Procedure hab ich zu Testzwecken mal eingekürzt:

Delphi-Quellcode:

procedure TPPWFormNotifier.ComponentRenamed(ComponentHandle: TOTAHandle;
  const OldName, NewName: string);
begin
  ShowMessage('"'+OldName+'" wird zu "'+NewName+'"');
end;

Da sieht man schön, wann man welche Aktion ausführen kann.

[CG2003]

Zitat von chaosben:

Also, bei mir geht dein Code wunderbar unter einer Voraussetzung: Das CNA-Package ist nicht installiert. Da gibt es scheinbar "Antipathien" zwischen deinem Package und dem CNA. Die ComponentRenamed-Procedure hab ich zu Testzwecken mal eingekürzt:

Delphi-Quellcode:

procedure TPPWFormNotifier.ComponentRenamed(ComponentHandle: TOTAHandle;
  const OldName, NewName: string);
begin
  ShowMessage('"'+OldName+'" wird zu "'+NewName+'"');
end;

Da sieht man schön, wann man welche Aktion ausführen kann.

Danke.
Hättest Du denn auch noch die Güte, mal zu prüfen, ob die Registrierung und Zuordnun meines FormEditors stimmt?

[chaosben]

Das schien alles in Ordnung.