class PACKAGE TPopForm : public TForm
{
public:
__fastcall TPopForm(TComponent* Owner);
protected:
void __fastcall CreateParams(TCreateParams &Params);
__published:
};

TPopForm *FPopForm;

void __fastcall TCheckComboBox::DropList(void)
{ TPoint P;
FPopForm = new TPopForm(Application);
P = ClientToScreen(Point(Left, Top));
FPopForm->Left = P.x - Left; FPopForm->Top = P.y - Top + Height + 1;
FPopForm->Width = Width; FPopForm->Height = 80;
FPopForm->BorderStyle = bsNone; FPopForm->FormStyle = fsStayOnTop;
FPopForm->Font->Assign(Font);
FPopForm->Show();
}


Пытался создать форму...

Exeption: мол, не найден еклмн.dfm

Как обойтись без dfm'ника? И вообще, можно ли создать форму без конструктора и вместе с тем не сильно зарываться?

Цитата

И вообще, можно ли создать форму без конструктора и вместе с тем не сильно зарываться?

конструктор должен быть в независимости от того явно он вызывается или нет

Это сообщение отредактировал(а) Step - 26.2.2003, 19:30

А чем не устраивает стандартный способ.
Создаешь форму как обычно, заходишь в Project->Project Options->Forms и переносишь эту форму из AutoCreate Forms в Available Forms.
Ну далее все также

Код

FPopForm = new TPopForm(Application);

Я пытаюсь написать компонент CheckListComboBox. А эта форма нужна для помещения на нее элемента CheckListBox при нажатии на кнопицу разворачивания списка.

а ты нехочешь ее сделать нормальной, а потом просто играться своийством визайбли

Все. Сделал. Сгенерил ее в конструкторе пустой и голой абсолютно. Все заработало, выпадает как надо и где надо (и в тулбаре проверял, работает). Но не дает покоя то, что в рилсофтовском компоненте сделано как-то по другому. Они наследуют TPopForm от TForm и описывают ее следующим образом:

TPopForm = class(TForm)
protected
procedure CreateParams( var Params: TCreateParams ); override;
end;

procedure TPopForm.CreateParams( var Params: TCreateParams );
begin
inherited CreateParams( Params );
end;

А креатят, инициализят и активируют вот так:

FPopForm:= TPopForm.CreateNew(Application);
P:= Self.ClientToScreen(Point(Left,Top));
FPopForm.Left:= P.X - Left;
FPopForm.Top:= P.Y - Top + Height + 1;
FPopForm.Width:= Width;
FPopForm.Height:= 80;
FPopForm.BorderStyle:= bsNone;
FPopForm.FormStyle:= fsStayOnTop;
FPopForm.Font.Assign(Font);
FPopForm.OnDeactivate:= ListDeAct;
FPopForm.Show;

Не похоже, что они ее создавали нормальной... Или я что-то просмотрел...