TCollection - Possible to prevent changing items in run-time?

[djjd47130]

I have a TCollection/TCollectionItem set of descendents. They are intended to be set up in Design-time only, and should never be modified in Run-time. How can I do this? Design-time should always allow whatever edits are needed, but in Run-time, I don't want to be able to Add, Remove, or Re-index any of the items in the collection. The properties of each of those items, yes, I do want them to be enabled. But changing the actual items around shall only be in design-time.

JD Solutions

 

[Glenn9999]

I assume this is in a control of some kind. That given, I'd try making functions to set the values of these items and then in those functions do something like:

 if (csDesigning in ComponentState) then
   begin
//   < set values>
   end

Logically it should ignore assigning the values on run-time.

It is not possible for anyone to acknowledge truth when their salary depends on them not doing it.

 

[djjd47130]

So you mean for example...

function TMyCollection.Add: TMyCollectionItem;
begin
  if (csDesigning in ComponentState) then begin
    Result:= TMyCollectionItem(inherited Add);
    //do whatever you need to do...
  end else begin
    //Raise exception
  end;
end;

procedure TMyCollection.Delete(Index: Integer);
begin
  if (csDesigning in ComponentState) then begin
    //do whatever you need to do...
    inherited Delete(Index);
  end else begin
    //Raise exception
  end;
end;

//Etc...

Damnit, when you can start writing entire units of code in any text editor, you know you've gone deep into programming


JD Solutions

 

[djjd47130]

I forgot to mention my sarcastic response to my own question in my last post... Durr, I should have figured that one out **slaps self in face**

JD Solutions

 

[djjd47130]

Some other comments on exactly which methods to override:

http://stackoverflow.com/questions/...nt-changing-items-in-run-time/8074115#8074115

JD Solutions