1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Инициализация форм

Тема в разделе "Delphi - программирование", создана пользователем Mick Winder, 1 авг 2005.

Статус темы:
Закрыта.
  1. Mick Winder

    Mick Winder Гость

    Репутация:
    0
    Допустим есть у меня две формы Form1 и Form4. Одна форма - главная, другая вспомогательная, для получения данных в главную форму...
    С помощью пункта в меню Project - Options и на вкладке Forms перенес Form4 из списка Auto-create forms в список Available forms.
    Затем описал следующий код вызова Form4:

    Код:
    procedure TForm1.SpeedButton24Click(Sender: TObject);
    begin
    
    Form4:= TForm4.Create(Application);
    if Form4.ShowModal=mrOk then begin
      ....
      end;
     Form4.Free;
    
    end;
    Выдает ошибку: "Incompatible types: 'TComponent' and 'TGUID' "
    Не понял... Что я здесь упустил?
     
  2. ????

    ???? Гость

    Репутация:
    0
    Для: Mick Winder
    Что-то типа:
    Код:
    ...
    uses имя_файла_с_формой_4 
    ...
    procedure TForm1.SpeedButton24Click(Sender: TObject);
    var
    Form4: TForm4;
    begin
    
    Form4:= TForm4.Create(Application);
    if Form4.ShowModal=mrOk then begin
     ....
      end;
    Form4.Free;
    end;
     
  3. Mick Winder

    Mick Winder Гость

    Репутация:
    0
    Для: ????
    Сделал всё как ты посоветовал, выводит ту же ошибку... ;)
     
  4. ????

    ???? Гость

    Репутация:
    0
    Для: Mick Winder
    И на какую строку жалуется?
     
  5. Mick Winder

    Mick Winder Гость

    Репутация:
    0
    На эту...

    Код:
    Form4:= TForm4.Create(Application);
     
  6. ????

    ???? Гость

    Репутация:
    0
    Для: Mick Winder
    Странно ;) Приложи полностью исходник или разбирайся с этим (работает):
    Код:
    unit Unit1;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
    
    type
    TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
    private
     { Private declarations }
    public
     { Public declarations }
    end;
    
    var
    Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    uses Unit2;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    frm2: TForm2;
    begin
    frm2 := TForm2.Create(Self);
    frm2.ShowModal;
    frm2.Free;
    end;
    
    end.
    Код:
    unit Unit2;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;
    
    type
    TForm2 = class(TForm)
    private
     { Private declarations }
    public
     { Public declarations }
    end;
    
    var
    Form2: TForm2;
    
    implementation
    
    {$R *.dfm}
    
    end.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей