Проблема с opendialog

[Ate1st1984]

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

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

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

[Ate1st1984]

если в обработчике onClick этой кнопки написать любой другой код то все находится и работает

[Аватар]

А так

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

[Ate1st1984]

Сообщение от Аватар

А так

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

нет так тоже самое: access violation at 0x00405bdc

[Аватар]

В OpenDialog еще события есть. Если есть обработчики, может там какая-то бяка срабатывает?

[evg_m]

procedure TForm62.OpenConnStrClick(Sender: TObject);
var
begin
//  if OpenDialog.Execute() then 
  TEdit(findObj('ConnStr')).Text:= 'тра-та-та';//OpenDialog.FileName;
end;

А будет ли работать ли ТАКОЙ код?

[Ate1st1984]

да так работает, я не могу понять что с opendialog не так

[Ate1st1984]

Вот с новой формы:

type
TForm66 = class(TForm)
OpenDialog1: TOpenDialog;
procedure FormShow(Sender: TObject);
procedure BtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form66: TForm66;
obj: TObjControl;

implementation

{$R *.dfm}

procedure TForm66.FormShow(Sender: TObject);
begin
obj:= TObjControl.Create();
obj.setProp(50,50,50,50, Form66, 'Btn', Form66);
obj.CreateBtn();
TButton(FindComponent('Btn')).OnCli ck:= BtnClick;
end;

procedure TForm66.BtnClick(Sender: TObject);
begin
OpenDialog1.Execute();
end;


все то же самое только работает

[evg_m]

type
  TForm62 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    OpenDialog: TOpenDialog;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Edit1: TEdit;

В dfm (которго в архиве нет) нет соответствующего описания => объект не создан =>AV
а есть там Opendialog1 с которым и работают другие кнопки.

[Ate1st1984]

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

type
  TForm62 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    OpenDialog: TOpenDialog;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Edit1: TEdit;

В dfm (которго в архиве нет) нет соответствующего описания => объект не создан =>AV
а есть там Opendialog1 с которым и работают другие кнопки.

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