Проблема с opendialog

[Ate1st1984]

Помогите разобраться.
Есть кнопка созданная в рантайм:

procedure TForm62.OpenConnStrClick(Sender: TObject);
var
s: string;
begin
  OpenDialog.Execute();
  s:= OpenDialog.FileName;
  TEdit(findObj('ConnStr')).Text:= s;
end;

при нажатии выдает ошибку access violation at 0х00405b90: read of address 0х00000000

если тот же код вставить в кнопку созданную в десигнтайм то все работает.

[Аватар]

Значит кнопку не правильно создаете

[Ate1st1984]

Функция создания кнопки:

function TObjControl.CreateBtn;
begin
  Btn:= TButton.Create(Prop.Owner);
  Btn.Top:= Prop.top;
  Btn.Left:= Prop.left;
  Btn.Height:= Prop.height;
  Btn.Width:= Prop.width;
  Btn.Parent:= Prop.par;
  Btn.name:= Prop.name;
  Result:= Btn;
end;

Создание кнопки:

obj.setProp(17, 375, 25, 25, TGroupBox(findObj('ConnGrpBox')), 'ConnStrBtn', Form62);
  Obj.CreateBtn();
  TButton(findObj('ConnStrBtn')).Caption:= '...';
  TButton(findObj('ConnStrBtn')).OnClick:= OpenConnStrClick;

Процедура установки свойств:

procedure TObjControl.setProp(top, left, height, width: integer; par: TWinControl; name: string; Owner: TComponent);
begin
  Prop.owner:= Owner;
  Prop.top:= top;
  Prop.left:= left;
  Prop.height:= height;
  Prop.width:= width;
  Prop.par:= par;
  Prop.name:= name;
end;

[Serge_Bliznykov]

жуть... Вы вообще не понимаете, что есть ООП, что есть класс, что есть объект, что такое методы объекта, как объект создавать и т.д. и т.п.
это раз.

второе, вместо кусков разрозненного кода, лучше бы вы привели полностью свой код.
например, какого типа у Вас Obj?

а вот это

obj.setProp(17, 375, 25, 25, TGroupBox(findObj('ConnGrpBox')), 'ConnStrBtn', Form62);
Obj.CreateBtn();

вы сначала вызываете метод у несозданного объекта и назначаете свойства, а потом (неправильно) пытаетесь объект создать?!?!


в любом случае вместо

Obj.CreateBtn();

наверное, должно быть

 obj := CreateBtn();

[Человек_Борща]

obj.setProp(17, 375, 25, 25, TGroupBox(findObj('ConnGrpBox')), 'ConnStrBtn', Form62);

Oh god.. Why?
Почитайте об ООП, Frames, и динамических объектах.

Obj.CreateBtn();
TButton(findObj('ConnStrBtn')).Capt ion:= '...';
TButton(findObj('ConnStrBtn')).OnCl ick:= OpenConnStrClick;

Глупо. Ваш код находит всегда 1 и туже кнопку, пусть их там хоть 100500 будет.
Используйте TComponentList.

[Ate1st1984]

Сообщение от Serge_Bliznykov

жуть... Вы вообще не понимаете, что есть ООП, что есть класс, что есть объект, что такое методы объекта, как объект создавать и т.д. и т.п.
это раз.

второе, вместо кусков разрозненного кода, лучше бы вы привели полностью свой код.
например, какого типа у Вас Obj?

а вот это

вы сначала вызываете метод у несозданного объекта и назначаете свойства, а потом (неправильно) пытаетесь объект создать?!?!


в любом случае вместо
наверное, должно быть

 obj := CreateBtn();

Код полностью в прикрепленном файле
obj: TobjControl;

В Showform есть Obj:= TObjControl.Create();

В классе TObjControl есть процедура SetProp:

procedure TObjControl.setProp(top, left, height, width: integer; par: TWinControl; name: string; Owner: TComponent);
begin
Prop.owner:= Owner;
Prop.top:= top;
Prop.left:= left;
Prop.height:= height;
Prop.width:= width;
Prop.par:= par;
Prop.name:= name;
end;

и функция CreateBtn:

function TObjControl.CreateBtn;
begin
Btn:= TButton.Create(Prop.Owner);
Btn.Top:= Prop.top;
Btn.Left:= Prop.left;
Btn.Height:= Prop.height;
Btn.Width:= Prop.width;
Btn.Parent:= Prop.par;
Btn.name:= Prop.name;
Result:= Btn;
end;

в которой есть строчка Btn:= TButton.Create(Prop.Owner);

Создание кнопки:

obj.setProp(17, 375, 25, 25, TGroupBox(findObj('ConnGrpBox')), 'ConnStrBtn', Form62);
Obj.CreateBtn();
TButton(findObj('ConnStrBtn')).Capt ion:= '...';
TButton(findObj('ConnStrBtn')).OnCl ick:= OpenConnStrClick;

Функция findObj:

function TForm62.findObj(name: string): TComponent;
var
z: TComponent;
begin
z:= FindComponent(name);
Result:= z;
end;

Кнопок созданных таким образом на форме несколько, и не работает в них только OpenDialog, хотелось бы узнать почему

[Serge_Bliznykov]

проект ещё не смотрел (кстати, Вы правильно сделали, что выложили его!)

хотел бы сразу у Вас, как у автора программы выяснить:

В Showform есть Obj:= TObjControl.Create();
......
Создание кнопки:
obj.setProp(17, 375, 25, 25, TGroupBox(findObj('ConnGrpBox')), 'ConnStrBtn', Form62);
Obj.CreateBtn();

если создание кнопки это Obj:= TObjControl.Create();
то,
1) зачем вызывается метод Obj.CreateBtn(); ?
2) в методе CreateBtn() создаётся кнопка Btn:= TButton.Create(Prop.Owner);
которая возвращается в качестве результата функции.
вопрос - куда девается результат в вашем случае?!

[Ate1st1984]

Сообщение от Serge_Bliznykov

проект ещё не смотрел (кстати, Вы правильно сделали, что выложили его!)

хотел бы сразу у Вас, как у автора программы выяснить:

если создание кнопки это Obj:= TObjControl.Create();
то,
1) зачем вызывается метод Obj.CreateBtn(); ?
2) в методе CreateBtn() создаётся кнопка Btn:= TButton.Create(Prop.Owner);
которая возвращается в качестве результата функции.
вопрос - куда девается результат в вашем случае?!

1. в setprop устанавливаются параметры в данном случае кнопки, еще есть edit, dblookupcombobox, ChkBox, DBGrd для них параметры устанавливаются той же процедурой, а в createbtn эти параметры присваиваются кнопке
2. эта функция должна быть процедурой, ее результатом не пользуюсь, компоненты нахожу по имени с помощь функции findobj

[Ate1st1984]

Obj:= TObjControl.Create(); это не создание кнопки, а создание экземпляра класса.

[evg_m]

Значит кнопку не правильно создаете

только скорее всего и не кнопку и не неправильно, а ВООБЩЕ не создается некий объект который потом безуспешно пытаемся найти и не проверив
1. findObj('ConnStr') (нашли/или нет)
2. Tedit(.. (а тот ли тип Tbutton|Tedit|...)
используем.

  TEdit(findObj('ConnStr')).Text:= s;

P.S. практически весь unit 63 описан здесь
Delphi7 F1 Constructors and class references

A constructor can be called using a variable of a class-reference type. This allows construction of objects whose type isn't known at compile time. For example,

type TControlClass = class of TControl;
function CreateControl(ControlClass: TControlClass;
const ControlName: string; X, Y, W, H: Integer): TControl;
begin
Result := ControlClass.Create(MainForm);
with Result do
begin
Parent := MainForm;
Name := ControlName;
SetBounds(X, Y, W, H);
Visible := True;
end;
end;

The CreateControl function requires a class-reference parameter to tell it what kind of control to create. It uses this parameter to call the class's constructor. Because class-type identifiers denote class-reference values, a call to CreateControl can specify the identifier of the class to create an instance of. For example,

CreateControl(TEdit, 'Edit1', 10, 10, 100, 20);

Constructors called using class references are usually virtual. The constructor implementation activated by the call depends on the runtime type of the class reference.