Обнуление параметров класса

[DarkSmile]

Потому что вы создаете класс SelectComp := TSelectComp.Create; и проверяете у SelectComp, тут ясен пень что все будет nil

[DarkSmile]

Ну вод собственно и весь код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type

  TEeventParam = class(TStringList)
    public
      ProcName: string;
      vars: TStringList;
      constructor Create; virtual;
  end;

  TCodeEvent = class
      _OnShanage:   TEeventParam;
      _OnClick:     TEeventParam;
      _On2xClick:   TEeventParam;
      _OnClose:     TEeventParam;
      _OnCloseQuery:TEeventParam;
      _OnCreate:    TEeventParam;
      _OnAktivate:  TEeventParam;
      _OnDeaktivate:TEeventParam;
      _OnShow:      TEeventParam;
      _OnHide:      TEeventParam;
      _OnResize:    TEeventParam;
      _OnPaint:     TEeventParam;
      _OnKeyUp:     TEeventParam;
      _OnKeyDown:   TEeventParam;
      _OnDownMause: TEeventParam;
      _OnUpMause:   TEeventParam;
      _OnMoveMouse: TEeventParam;
      _OnLeaveMouse:TEeventParam;
      _OnSelect:    TEeventParam;
  end;

  TCompEvents = class
    public
      _OnShanage:   TMenuItem;
      _OnClick:     TMenuItem;
      _On2xClick:   TMenuItem;
      _OnClose:     TMenuItem;
      _OnCloseQuery:TMenuItem;
      _OnCreate:    TMenuItem;
      _OnAktivate:  TMenuItem;
      _OnDeaktivate:TMenuItem;
      _OnShow:      TMenuItem;
      _OnHide:      TMenuItem;
      _OnResize:    TMenuItem;
      _OnPaint:     TMenuItem;
      _OnKeyUp:     TMenuItem;
      _OnKeyDown:   TMenuItem;
      _OnDownMause: TMenuItem;
      _OnUpMause:   TMenuItem;
      _OnMoveMouse: TMenuItem;
      _OnLeaveMouse:TMenuItem;
      _OnSelect:    TMenuItem;
  end;

  TSelectComp = class
    public
      NumEvent: Integer;
      CodeEvent: TCodeEvent;
      CompEvents: TCompEvents;
      constructor Create;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    PopupMenu1: TPopupMenu;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TEeventParam.Create;
begin
    inherited Create;
    vars := TStringList.Create;
end;

constructor TSelectComp.Create;
begin
   inherited Create;
   CompEvents := TCompEvents.Create;
   CodeEvent  := TCodeEvent.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if TSelectComp(Button2).CodeEvent._OnCreate = nil then begin
     TSelectComp(Button2).CodeEvent._OnCreate := TEeventParam.Create;
     TSelectComp(Button2).CodeEvent._OnCreate.AddStrings(Memo1.Lines);
     ShowMessage('is nil');
   end else begin
     Memo1.Lines.Text := TSelectComp(Button2).CodeEvent._OnCreate.Text;
     ShowMessage('not nil');
   end;
end;

end.

[ReportCube]

А это что ещё за чудо такое TSelectComp(Button2)? С каких это пор класс TButton(Button2) стал вдруг другим классом?

[DarkSmile]

А че так нельзя чтоле? Мне просто нужно что бы TSelectComp был у каждого компонента, что бы можно было записать для каждого свои параметры. Но ведь это работает, если в TCodeEvent = class вместо class использовать record, только вот он блин не все параметры обнуляет

[ReportCube]

Не может ничего так работать. Если хотите создавать свой класс и привязать его к кнопке - создавайте класс, а ссылку на созданный класс преобразуйте в Integer и присваивайте его свойству Tag вашей кнопке. Тогда, если класс нормально создан, то к нему можно будет обращаться простым преобразованием TSelectComp(Button2.Tag).CodeEvent. _OnCreate. Это - как один из возможных вариантов. Только не забывайте освобождать класс, когда в нём надобность отпадёт.

[DarkSmile]

Не совсем понял, например как ссылку преобразовать в Integer?

[ReportCube]

Button2.Tag := Integer(TSelectComp.Create);

[DarkSmile]

Вон оно как, ща попробуем

То что надо, спасибо!

[eval]

а как все начиналось ... аж дух захватывало и интриговало, а закончилось простым незнанием основ.

[DarkSmile]

Да я прост с классами недавно начал работать. Делаю дизайнер форм, и вот для каждого компонента формы нужно загружать соответствующие события