Komponente vor dem Platzieren umbenennen / OpenTools API

[CG2003]

So, habe das mit Deiner "ShowMessage" ausprobiert. Die Showmessage bekomme ich ja noch angezeigt, doch wenn der die Komponente umbenennen soll, via

Delphi-Quellcode:

Compo := SetPropByName('Name', 'NeuerTestName');

bekomme ich eine AV.

[chaosben]

Du darfst die Komponente erst umbennen, wenn sie initialisiert ist. Das erkennst du daran, das NewName schon einen Wert hat.
Auszug aus dem CNA:

Delphi-Quellcode:

procedure TFormNotifier.ComponentRenamed(ComponentHandle: TOTAHandle;
  const OldName, NewName: string);
begin
  if (Wizard.FSettings.ExpertActive) then
  begin
    if (OldName='') and (NewName<>'') then
    begin
      FRenameTimer.Enabled:=false;
      FInsertedComponents.AddObject(NewName,ComponentHandle);
      FRenameTimer.Enabled:=true;
    end;
  end;
end;

[CG2003]

Zitat:

Zitat von chaosben

Du darfst die Komponente erst umbennen, wenn sie initialisiert ist. Das erkennst du daran, das NewName schon einen Wert hat.
Auszug aus dem CNA:

Delphi-Quellcode:

procedure TFormNotifier.ComponentRenamed(ComponentHandle: TOTAHandle;
  const OldName, NewName: string);
begin
  if (Wizard.FSettings.ExpertActive) then
  begin
    if (OldName='') and (NewName<>'') then
    begin
      FRenameTimer.Enabled:=false;
      FInsertedComponents.AddObject(NewName,ComponentHandle);
      FRenameTimer.Enabled:=true;
    end;
  end;
end;

Hmm, müsste ich mal ausprobieren, doch was bedeutet in diesem Falle

Delphi-Quellcode:

FInstertedComponents.AddObject(NewName, ComponentHandle);

Ich denke das eigentlich Umbenennen mache ich mit

Delphi-Quellcode:

SetPropByName('Name', 'NeuerName');

Und was ist "Wizard", "FSettings" und "FRenameTimer" ?

[chaosben]

Das war nur ein Beispiel. Das einzig interessante an dem Code war die Abfrage von OldName und NewName. Die anderen Objekte kümmern sich nur um das Cachen der Komponenten. (muss man nicht machen, kann man aber :) )

[CG2003]

Ich weiss, es ist wahrscheinlich zuviel verlangt, aber wärst Du so nett, mir ein kleines Beispiel zu geben?
Irgendwie habe ich momentan in meinem Code wohl den Wurm drin und ich finde einfach nicht die Ursache, warum es nicht läuft.

Ich will doch nur Komponenten umbenennen, wenn sie auf einem Form platziert werden.

Es wäre jedenfalls sehr nett von Dir und ich wäre Dir sehr dankbar.

[chaosben]

Anbei hab ich deinen Code ein wenig umgestrickt. Leider hab ich in meiner Arbeitswut vergessen an die entsprechenden Zeilen Kommentare zu schreiben. Sorry :(

[CG2003]

Zitat:

Zitat von chaosben

Anbei hab ich deinen Code ein wenig umgestrickt. Leider hab ich in meiner Arbeitswut vergessen an die entsprechenden Zeilen Kommentare zu schreiben. Sorry :(

Super, vielen Dank! Das funktioniert einwandfrei! Glaub' mir, ich bin Dir sehr dankbar!

[chaosben]

Zitat:

Zitat von CG2003

Super, vielen Dank! Das funktioniert einwandfrei! Glaub' mir, ich bin Dir sehr dankbar!

:-D