вопрос по Делфи 7

[Yury]

привет всем!

Прошу помоч, кто может.

пробелма в том, что когда ручками пишешь создание формы, не получаетьс

прицепить процедуру к событию OnClick (выделенно красным)

При компеляции имею сообщение, что необъявлена привязываемая процедура (OnClick2)

Отвечать просьба на admin771@mail.ru

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms, StdCtrls, Dialogs, ExtCtrls, Classes, frxClass, frxDCtrl, frxDesgn;type arr1=array[1..9,1..9] of integer; arr2=array[1..9] of integer; TForm1 = class(TForm)Edit78: TEdit;Edit79: TEdit;Edit80: TEdit;Edit81: TEdit;Button1: TButton;Button3: TButton;Button2: TButton;Button4: TButton;Button5: TButton;frxReport1: TfrxReport;CheckBox1: TCheckBox;procedure Button1Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure CheckBox1Click(Sender: TObject);//procedure OnClick2(Sender: TObject); private{ Private declarations } public{ Public declarations }procedure OnClick2(Sender: TObject); end;var digit,boxik,flag,flag1:Integer; kol_run:Integer=0; flag11:boolean=false; flag22:boolean=false; sto1:Integer=1; str1:Integer=1; nomer_sqr:Integer=1; arr_sootv,arr0,arr:arr1; arr_str,arr_sto,arr_sqr:arr2; Form1: TForm1; chto: string=''; proba:integer; stoped:bool; procedure arr_soot(var arr_sootv:arr1); procedure next_box(const a1,a2:arr1; var sto,str,nomer:integer); procedure poisk(const str2,sto2:integer); procedure stolbec(const str1,sto1:integer); procedure stroka(const str1,sto1:integer); procedure kvadrat(const str1,sto1:integer); procedure zapis(const str1,sto1:integer); procedure Show(var stoped:bool);//  procedure OnClick2(Sender: TObject);implementationuses utilits, unit2;{$R *.dfm}--------------------------begin AMsgDialog := CreateMessageDialog('Записана цифра '+Trim(IntToStr(digit))+' в ячейку ('+Trim(IntToStr(str1))+';'+Trim(IntToStr(sto1))+') !', mtWarning, [mbOk]); ACheckBox := TCheckBox.Create(AMsgDialog); with AMsgDialog dotry  Caption := '"123456"';  Height := 150;  Width := 280;  Left := Screen.ActiveForm.Left + (Screen.ActiveForm.Width div 2) - (Width div 2);  Top := Screen.ActiveForm.Top + (Screen.ActiveForm.Height div 2) - (Height div 2);  with ACheckBox do  begin	Parent := AMsgDialog;	Caption := '!!!!!!!!!!!!!!!!!!!!!!!!';	top := 100;	Left := 5;	Width := 270;	Checked := stoped;	[color=#FF6666]OnClick := OnClick2;[/color]  end;  case ShowModal of  ID_OK:  end;finally  ACheckBox.Free;  Free;end;end;// Процедура для Чекбокса в ШоуМесседж.procedure OnClick2(Sender: TObject);beginstoped:=not stoped;// ACheckBox.Checked := stoped;Form1.CheckBox1.Checked := stoped;Form1.Refresh;end;

Изменено 25 апреля, 2007 пользователем Darhazer

[Darhazer]

Отвечать просьба на admin771@mail.ru

На форуме не принято ответи на темах отправлят на e-mail

Раз спросили на форуме, то и ответ будет на форуме

Еще, пользуйте кнопку CODE

Насчет проблему, вопервых обявите процедуру перед присвоения, и вообще перед begin ( сразу после {$R *.dfm} -------------------------- )

Удачи!

[Адам]

На форуме не принято ответи на темах отправлят на e-mail

Раз спросили на форуме, то и ответ будет на форуме

Еще, пользуйте кнопку CODE

Насчет проблему, вопервых обявите процедуру перед присвоения, и вообще перед begin ( сразу после {$R *.dfm} -------------------------- )

Удачи!

Хочу научиться языку Дельфи где скачать материал?

[Darhazer]

Хочу научиться языку Дельфи где скачать материал?

здесь