Что-то типо гаджета на рабочий стол Win 7

[abzhapparovmaxat]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure SomeProc0(Sender: TObject);
procedure SomeProc1(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SomeProc0(Sender: TObject);
begin
ShowMessage('0');
end;

procedure TForm1.SomeProc1(Sender: TObject);
begin
ShowMessage('1');
end;


procedure MakeButtons;
var
Btns:array[0..1] of TButton;
begin
//run-time button 1
Btns[0]:=TButton.Create(nil);
Btns[0].Parent:=Form1;
Btns[0].Left:=10;
Btns[0].Top:=10;
Btns[0].Height:=20;
Btns[0].Width:=50;
Btns[0].Caption:='Button1';
Btns[0].OnClick:= SomeProc0; // 51

//run-time button 2
Btns[1]:=TButton.Create(nil);
Btns[1].Parent:=Form1;
Btns[1].Left:=10;
Btns[1].Top:=50;
Btns[1].Height:=20;
Btns[1].Width:=50;
Btns[1].Caption:='Button2';
Btns[1].OnClick:= SomeProc1; // 61
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MakeButtons
end;

end.

Вот так выдает ошибки
[DCC Error] Unit1.pas(51): E2003 Undeclared identifier: 'SomeProc0'
[DCC Error] Unit1.pas(61): E2003 Undeclared identifier: 'SomeProc1'

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

в public секции их надо обьявлять.

[Аватар]

А MakeButtons нельзя тоже форме подчинить, или это некая идея таким образом опредялять?

[abzhapparovmaxat]

в public секции их надо обьявлять.

Те же самые ошибки(

А MakeButtons нельзя тоже форме подчинить, или это некая идея таким образом опредялять?

MakeButtons Присоединяется к уже бывшим ошибкам

[DCC Error] Unit1.pas(51): E2003 Undeclared identifier: 'SomeProc0'
[DCC Error] Unit1.pas(61): E2003 Undeclared identifier: 'SomeProc1'
[DCC Error] Unit1.pas(61): E2003 Undeclared identifier: 'MakeButtons'

[Аватар]

Кстати Parent показывает в каком контейнере находится Button, но не задает родителя, ответственного за уничтожение объекта. Этого родителя задают в качестве параметра в методе Create, в данном случае тот же Form1

[phomm]

Кто компоненты вообще создаёт как локальные переменные ??
Сделайте полем формы, да и саму процедуру - методом формы - тогда будут доступны someproc'и ну или
если хотите так всё оставить, то писать Btns[1].OnClick:= form1.SomeProc1;

[abzhapparovmaxat]

Всем спасибо! Наконец-то разобрался.
Вот вообщем код для тех кто пришел на форум с этим же вопросом. Я думаю таких будет много)

Этот код создает две кнопки(Btns[0,1]), и на событие ОнКлик(OnClick) этих кнопок назначает Процедуры(SomeProc[0,1]).

unit Unit1;

interface

uses
StdCtrls, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure SomeProc0(Sender: TObject);
procedure SomeProc1(Sender: TObject);
procedure MakeButtons;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SomeProc0(Sender: TObject);
begin
ShowMessage('0');
end;

procedure TForm1.SomeProc1(Sender: TObject);
begin
ShowMessage('1');
end;

procedure TForm1.MakeButtons;
var
Btns:array[0..1] of TButton;
begin
Btns[0]:=TButton.Create(nil);
Btns[0].Parent:=Form1;
Btns[0].Left:=10;
Btns[0].Top:=10;
Btns[0].Height:=20;
Btns[0].Width:=50;
Btns[0].Caption:='Button0';
Btns[0].OnClick:= Form1.SomeProc0;

Btns[1]:=TButton.Create(nil);
Btns[1].Parent:=Form1;
Btns[1].Left:=10;
Btns[1].Top:=50;
Btns[1].Height:=20;
Btns[1].Width:=50;
Btns[1].Caption:='Button1';
Btns[1].OnClick:= Form1.SomeProc1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.MakeButtons;
end;

end.