Текущий архив: 2007.03.18;
Скачать: CL | DM;
Вниз
property BtnType: TIDBtnType; Найти похожие ветки
← →
Вася Рогов (2007-02-28 14:03) [0]Пытаюсь сгоношить компонентик. Пишу так:
type TTBType=(stbClose, stbMaximize, stbRestore, stbMinimize, stbNone);
TTopButton=class(TSelButton)
private
function BBtnType: TTBType;
procedure SetBtnType(const Value: TTBType);
published
property BtnType: TTBType read BBtnType write SetBtnType default stbNone;
end;
При попытке запуска прога вешает комп, IDE и себя, спасаешься только перезагрузкой.
Как можно правильно оформить property для компонента чтобы его можно было видеть в структуре свойств в Object Inspector и ничего не глючило?
Заранее спасибо.
← →
Аноним (2007-02-28 14:09) [1]в приведенном куске кода глюков нет (кроме несоблюдения стандартов имен)
следовательно, глюк где-то в другом месте.
> Как можно правильно оформить property для компонента чтобы
> его можно было видеть в структуре свойств в Object Inspector
Ну приблизительно так и оформить, как оформлено
← →
Вася Рогов (2007-02-28 14:11) [2]Вот полный код. Что и куда надо добавить?
TTopButton=class(TSelButton)
private
function BBtnType: TTBType;
procedure SetBtnType(const Value: TTBType);
published
property BtnType: TTBType read BBtnType write SetBtnType default stbNone;
end;
var
Form1: TForm1;
tbClose: TTopButton;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
tbClose := TTopButton.Create(self);
tbClose.BtnType := stbClose;
tbClose.Width := 17;
tbClose.Height := 17;
tbClose.Left := Width - 10 - tbClose.Width;
tbclose.Top := 2;
tbClose.parent := self;
end;
{ TTopButton }
function TTopButton.BBtnType: TTBType;
begin
Result := BtnType;
end;
procedure TTopButton.SetBtnType(const Value: TTBType);
begin
//tnType := Value;
case BtnType of
stbClose: Caption := "X";
end;
Self.Paint;
end;
← →
MBo © (2007-02-28 14:42) [3]Self.Paint;
Зачем?
← →
Юрий Зотов © (2007-02-28 16:25) [4]
property BtnType: TTBType read BBtnType ...
function TTopButton.BBtnType: TTBType;
begin
Result := BtnType;
end;
И здравствуй, бесконечная рекурсия...
← →
Аноним (2007-02-28 16:47) [5]Во ! :-)
А мораль какая - надо соблюдать стандарты имен:-)
Страницы: 1 вся ветка
Текущий архив: 2007.03.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
