как открыть форму из потока

[jskorvin]

имеется:
форма с кнопкой запуска треда

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, potok;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 tred.Create(false);
end;
 
end.

сам тред

unit potok;
 
interface
 
uses
  Classes, testform;
 
type
  tred = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
 
implementation
 
 
{ tred }
 
procedure tred.Execute;
begin
  testform.Form3.Show;
end;
 
end.

форма которую хочется показывать из треда, на ней мемо, едит, лейбл, кнопка

unit testform;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
end.

При запуске потока показывается форма testform но без эдита и кнопки, по закрытию первой формы
erorina.JPG

Вопрос в том как показать эту форму правильно? Если туже форму показать по клику кнопки с первой формы - она отобразится правильно.
Я так понимаю дело в наследовании свойств родителя, который в данном случае не визуальный, но что и как указать не знаю =(

[evg_m]

Вопрос в том как показать эту форму правильно?

Для работы с VCL (формы, кнопки,...) из потоков надо использовать
synchronise

procedure tred.Execute;
begin
synchronise( testform.Form3.Show );
end;

Но! Sinchronise приостанавливает текущий поток и выполняет указанную в его параметрах процедуру в основном потоке. Полностью теряется смысл потока.

[jskorvin]

Сообщение от evg_m

Для работы с VCL (формы, кнопки,...) из потоков надо использовать
synchronise

procedure tred.Execute;
begin
synchronise( testform.Form3.Show );
end;

Вот блин.. это же элементарно! *укоряет себя

Сообщение от evg_m

Но! Sinchronise приостанавливает текущий поток и выполняет указанную в его параметрах процедуру в основном потоке. Полностью теряется смысл потока.

В данном случае именно это и нужно, поток ожидает ввода данных.

evg_m: огромное спасибо!

[evg_m]

В данном случае именно это и нужно, поток ожидает ввода данных

procedure tred.Execute;
begin
synchronise( testform.Form3.Show );
end;

в данном случае (что будет потом не знаю) в потоке у вас НИЧЕГО не делается, более того сразу после показа form3.show поток завершает работу (происходит выход из процедуры Execute). таким образом ваш поток ничего не ждет.

На мой взгляд логичнее сделать так:
В основном потоке ждем ввода данных (через Form3 как я понимаю) и после того как данные (по мнению пользователя) готовы передаем данные в поток и запускаем его (например с помощью кнопки на form3). Пока данных нет поток нам просто не нужен и нет проблем с синхронизацией т.к. в потоке нет никаких форм, а есть только данные..

[jskorvin]

Сообщение от evg_m

procedure tred.Execute;
begin
synchronise( testform.Form3.Show );
end;

в данном случае (что будет потом не знаю) в потоке у вас НИЧЕГО не делается, более того сразу после показа form3.show поток завершает работу (происходит выход из процедуры Execute).

Да, это приведено для примера, сама суть так сказать.

[ColdCode]

Подсказали что нужно синхронизировать показ формы

что то у меня этот фокус не прокатил ) выхода из потока нет

 synchronize(testform.Form3.Show);

[zumm]

Я для такого случая написал свою мини VCL. Она позволяет создавать формы (окна) прямо в потоке, при этом, управляющая петля будет крутиться самим потоком. Петля крутится пока существует хоть одно окно, то есть поток не будет ничего делать пока пользователь не завершит ввод. Если такой вариант вас устроит - могу поделиться исходниками.

PS Из минусов - нет визуального редактора и реализованы не все контролы. Сейчас есть: TGroupBox, TMemo, TEdit, TButton, TLabel и TImage. Не считая самой формы, конечно.

[Человек_Борща]

А зачем форму-то синхронизировать?
Она же только в потоке существует.

var
 Form:TMyForm;
begin
 Form:=TMyForm.Create(self);
 try
 Form.ShowModal;
 finally
   FreeAndNil(Form);
 end;
end;

Все.

[evg_m]

что то у меня этот фокус не прокатил ) выхода из потока нет

Вернее сказать поток НЕ ОСТАНАВЛИВАЕТСЯ для ввода(получения) данных с формы. Я прав?
А чего вы хотели. form.Show это "покажи и иди дальше".

более того сразу после показа form3.show поток завершает работу (происходит выход из процедуры Execute). таким образом ваш поток ничего не ждет.

Вы это читали?

На мой взгляд логичнее сделать так:
В основном потоке ждем ввода данных (через Form3 как я понимаю) и после того как данные (по мнению пользователя) готовы передаем данные в поток и запускаем его (например с помощью кнопки на form3). Пока данных нет поток нам просто не нужен и нет проблем с синхронизацией т.к. в потоке нет никаких форм, а есть только данные..

Оттуда же.

Потоку для вычислений не нужна форма, ему нужны данные! И предоставить ему их это задача основной программы(потока).