[Помогите!] Возможно ли?

[NebesaBag]

Здравствуйте, возможно ли в самом сердце проекта (.dpr) создавать процедуры?
И если возможно, то подскажите пожалуйста, как реализовать там процедуру, например, клика у динамически созданной кнопки.

[J-Fobos]

Возможно. Все делается также как и в обычных юнитах. Все 1 в 1, только не забывать подключать используемые модули

[NebesaBag]

Цитата: Сообщение от J-Fobos Возможно. Все делается также как и в обычных юнитах. Все 1 в 1, только не забывать подключать используемые модули

Модули подключал конечно.
Но когда компонент.onПроцедура:= название моей процедуры(объявление процедуры с такими же параметрами) то появлялись ошибки рода "Незивестная переменная Имя процедуры".

И верно ли в основном "юните"(.dpr), где есть только "begin...end." перед begin писать свою процедуру.

Благодарю заранее. Особенно если с наброском порядка распложения ключевых слов)

[Dinmaite]

Можно описывать свои процедуры.
Вопрос в другом, что ты пишешь?
Если программа полностью на WinApi - то и обработку сообщений нужно делать согласно принципам апи.

[NebesaBag]

program Project1;

uses
  Forms, Dialogs, Classes, SysUtils, StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  Unit1 in 'Unit1.pas' {Form1};


procedure MyProc(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);


var
  New: TForm;
  Loader:TIdHTTP;

{$R *.res}

procedure MyProc(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ShowMessage('12345')
end;

begin
 Application.Initialize;
 Application.Title := 'Title';

 New := TForm.Create(nil);
 New.Parent := nil;
 New.Show;

 Loader:=TIdHTTP.Create(New);
 Loader.OnWorkBegin:=MyProc;
 ...
 Loader.Free;
 New.Free;

 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

[Error] Project1.dpr: Incompatible types: 'method pointer and regular procedure'
Ругается на Loader.OnWorkBegin:=MyProc;

[Dinmaite]

Дело в том, что TWorkBeginEvent метод, а не процедура.
Вам необходимо сделать данную процедуру методом класса.

program Project1;

uses
  Forms, Dialogs, Classes, SysUtils, StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  Unit1 in 'Unit1.pas' {Form1};

type
  TMyClass=class (TObject)
  public
  procedure MyProc(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
end;

var
  New: TForm;
  Loader:TIdHTTP;
  _MyClass:TMyClass;
{$R *.res}


{ MyClass }

procedure TMyClass.MyProc(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ShowMessage('12345');
end;

begin
 Application.Initialize;
 Application.Title := 'Title';

 New := TForm.Create(nil);
 New.Parent := nil;
 New.Show;

 Loader:=TIdHTTP.Create(New);
 Loader.OnWorkBegin:=_MyClass.MyProc;
 Loader.Get('http://zhyk.ru');
 Loader.Free;
 New.Free;

 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.