Как перенести обработчик события?

[HTL]

Как перенести обработчик события? с unit1 на unit3?
(Событие: procedure TThread.Execute;) и на какой unit кидать это:

     TThread = class(TThread)
  protected
    procedure Execute; override;
  end;

add: Формы Form3 не существует, был создан просто unit3

[mihali4]

А зачем его переносить?
Ссылки юнит друг на друга позволят совместное использование.

[HTL]

А зачем его переносить?

unit1 сильно загруженный, для того чтобы мне найти событие(С помошью перемотки) уходит до 5мин

[Alter]

Так ведь сбоку от строк кода есть, навигационное дерево. Там всё есть, очень удобное. Даже когда 1000 строк кода написано

[HTL]

unit Unit3;

interface

uses
Classes;

TThread = class(TThread) protected procedure Execute;
override;
end;

var
Thread: TThread;


implementation
   uses unit1;

procedure TThread.Execute;

Получаю ошибку: [Error] Unit3.pas(8): Declaration expected but identifier 'TThread' found

[mihali4]

Подождите..
А где type ?
Где у вас класс объявляется и где вы хотите объявить общий обработчик ?
Приведите заголовки всех трех юнит...

[spamer]

Получаю ошибку: [Error] Unit3.pas(8): Declaration expected but identifier 'TThread' found

TName = class(TThread)
 protected
 procedure Execute;override;
end;

Имя не правильное было...

[HTL]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, XPMan, winsock;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    XPManifest1: TXPManifest;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label1: TLabel;
    Button11: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button12: TButton;
    Memo1: TMemo;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure N2Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string;
  i:integer;

implementation
   uses unit2, unit3;

{$R *.dfm}

А второй здесь не как не взаимодействует, и зачем здесть type? формы все равно нету, туда нечего вписывать...

имя сделал: T1Thread такая-же хрень

[spamer]

Однако...
Вот :

...

type
TClass = class(TThread)
 protected
  procedure Execute; override;
end;


var
  Form1: TForm1;
  Obj : TClass;

implementation

{$R *.dfm}

procedure TClass.Execute;
begin

end;


end.

[HTL]

type
TClass = class(TThread)
 protected
  procedure Execute; override;
end;

Все работает!