Форум пользователей ПО АСКОН

Профессиональные вопросы => Программирование приложений => Delphi => Тема начата: prog1 от 05.03.09, 11:46:03

Название: Создание компонентов на форме библиотеки
Отправлено: prog1 от 05.03.09, 11:46:03
var
  Form2: TForm2;
  E1:Tedit;

procedure TForm2.Button1Click(Sender: TObject);
begin
E1:=TEdit.Create(Form2);
E1.parent:=Form2;
E1.Left:=30;
E1.top:=45;
E1.Text:='RRRRRRRR';
E1.Visible:=True;
E1.Color:=clRed;
end;
-----------------------------------
    Почему-то не создаётся компонент на форме в библиотечн. модуле. В exe - нормально все создаются.
Подскажите, пожалуйста, в чём может быть дело!!!
На Делфи. (на си отрабатывает норм.)

Название: Re:Создание компонентов на форме библиотеки
Отправлено: prog1 от 05.03.09, 14:25:05
Готовый пример ГАЙКА использую - на форме GaykaDialog пытаюсь создать по Button1Click:  компонент Е1 существует, к его свойствам можно обратиться, но на форме не отображаеся?!
Название: Re:Создание компонентов на форме библиотеки
Отправлено: Andreych от 06.03.09, 11:17:39
На Delphi этот пример тоже работает.
Я взял ваш код для создания компонента Е1, и он создался на форме, красненький, с буквами RRRRR :)
Название: Re:Создание компонентов на форме библиотеки
Отправлено: prog1 от 06.03.09, 15:36:45
Спасибо, Вы заставили меня всё же найти ошибку!!!
Делаю по Богуславскому: в процедуре  вызова Showmodal:
               var dlg : TGaykaDialog;
    dlg:= TGaykaDialog.Create( Application );
    dlg.ShowModal;
А Надо:
     dlg вообще не нужен
     GaykaDialog:= TGaykaDialog.Create( Application );
     GaykaDialog.ShowModal;
Теперь даже на гайке Богуславского можно программно добавить компонент.
Кстати, на гайке в SDK вроде всЁ нормально описано.
ЕЩё раз спасибо!
-----------------------------------------
(Администратору) тема закрыта