MyConnectDialog

[Sidi]

Hi,

the follow code doesn`t work:

Code: Select all

procedure TForm1.BtnVerbindenClick(Sender: TObject);
begin
   MyConnectDialog1.DialogClass:='TfmMyConnect';
   MyConnection1.Database := 'QDM';
   MyConnection1.Connect;
end;

I`ve got the error Message: Class TfmMyConnect not found

In MyDac Demos Connect Dialog the same Code works.

What did I make wrong?

Sidi

[Ikar]

Most probably you forgot to call RegisterClass(TfmMyConnect);