Изменить обозначение и наименование активной детали

[krugerogk]

Как изменить обозначение и наименование активной детали?
API5 Delphi7

[Sabahs]

ksPart.marking
ksPart.name

[krugerogk]

Помогите!!! Почему перестал работать код?
Работал на процедуре Edit1OnChange. После того как перенес на кнопку перестал работать.


procedure TForm2.Button5Click(Sender: TObject);
begin
iDoc3D:=ksDocument3D(iKompas.ActiveDocument3D);
iPart:=ksPart(iDoc3D.GetPart(pTop_Part));
Edit2.Text:=iPart.name;
if  (Edit2.Text <> '')
and (Edit2.Text <> iPart.name) then
iPart.name:=Edit2.Text;
iPart.Update();
iDoc3D.UpdateDocumentParam;
iPart:=nil;
iDoc3D:=nil;
end;

[Sabahs]

Берём кусок Вашего кода и смотрим.
Edit2.Text:=iPart.name;
if  (Edit2.Text <> '')and(Edit2.Text <> iPart.name) then iPart.name:=Edit2.Text;
Нажали кнопку мышки, присвоили Elit имя детали, вторая строка уже не работает. Выкидываем первую строку, если нужно из Elit присвоить имя детали.
В событии OnChange, скорее всего работало из за того, что входило в рекурсию и то, я не уверен, что работало так, как нужно было Вам.

[krugerogk]

Спасибо большое, вывели из ступора.
Ответ простой - спать надо немного больше.