1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

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

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

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

    Mick Winder Гость

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

    Код (Text):
    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. ????

    ???? Гость

    Для: Mick Winder
    Что-то типа:
    Код (Text):
    ...
    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 Гость

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

    ???? Гость

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

    Mick Winder Гость

    На эту...

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

    ???? Гость

    Для: Mick Winder
    Странно ;) Приложи полностью исходник или разбирайся с этим (работает):
    Код (Text):
    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.
    Код (Text):
    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.
     
  7. Mick Winder

    Mick Winder Гость

    Спасибо!!! ;)
     
Загрузка...
Статус темы:
Закрыта.

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