Sadece design time çalışacak kod bloğu yazmak [Çözüldü]

[xxxjedixxx]

Kod: Tümünü seç

if csDesigning in ComponentState then
begin
  ...
end;

[akdatilla]

Kod: Tümünü seç

{$DESIGNONLY ON} or {$DESIGNONLY OFF}  

Default :

Kod: Tümünü seç

{$DESIGNONLY OFF}

http://docs.embarcadero.com/products/ra ... t_xml.html

[xxxjedixxx]

Ben Delphi7'den vazgeçemeyenlerdenim. Siz sorunca hatırlayamadım kendi yazdığım component kodundan aldım size verdim.

Classes ünitesinin içinde
TComponentState = set of (csLoading, csReading, csWriting, csDestroying,
csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification,
csInline, csDesignInstance);

Kendi component kodumdan örnek;

Kod: Tümünü seç

type
 TEditXClass = class(TCustomEdit)
  private
  ...
  end;

constructor TEditXClass.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if not (csDesigning in ComponentState) then
    ...

[xxxjedixxx]

Konu ile ilgisi nedir?