Объявление процедуры

[Progs1024]

Нужно вызвать процедуру в потоке. тело процедуры в главном юните... Как сделать так чтобы поток видел эту процедуру?

[Stilet]

Ну а как ты поток то создаешь?
В принципе в том модуле где нужно вызывать процедуру в uses пропиши имя того модуля с процедурой и вызывай.
Стандартная схема...

[Progs1024]

unit StartUnit;

interface

uses
  Classes, SysUtils;

type
  TStartObj = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses Main;

procedure TStartObj.Execute;
begin
// Здесь нужно вызвать процедуру
end;

end.

после выполнения кода в потоке, мне нужно вызвать процедуру которая находится в главном юните... как мне это сделать? я что-то не понял

[Баламут]

Так пойдет? Или принципиально, чтобы процедура была объявлена в классе формы?

ЗЫ. Только не нужно ShowMessage в потоке вызывать. Это я так, для примера

uses
  Classes, SysUtils;

procedure Test; forward;

type
  TStartObj = class(TThread)

implementation

procedure Test;
begin
  ShowMessage(Form1.Button1.Caption);
end;

Упс... Упустил из виду, что поток создается в другом юните. Сам-то давно так не делаю. В общем пардон, но пост стирать не буду. Авось пригодится.

[Progs1024]

вы меня не поняли)) допустим у моей процедыру название "start"... вот когда я в потоке пишу

form1.start;

, Делфи мне пишет "Undeclared identifier: 'start'"

[Пепел Феникса]

как обьявлена процедура в вашем основном модуле?

[Stilet]

А ты в uses допиши имя модуля где форма описана.

[Progs1024]

Дописано уже, но после implementation

[Пепел Феникса]

если процедура обьявлена так как показал Баламут(подобно...но суть в том что не как метод класса формы)
тогда просто пишите её имя. иначе form1.<имя>.

и вообще я вопрос задал, который сразу решил бы вашу проблему(позволил бы дать точный ответ)

[Progs1024]

Извините, не заметил вопроса...
Процедура объявлена просто:

procedure start;
begin
//Код
end;