Создание объектов во время работы программы !!!

← →
Mr © (2002-08-19 10:52) [0]

procedure TForm1.Button1Click(Sender: TObject);
var x:TEDit;
begin
x:=TEdit.create(self);
x.parent:=form1;
x.left:=10;
x.top:=10;
x.Width:=250;
x.Text:="Привет компонент появился сам!!!";
end;
- создает текстовое поле при нажатии на кнопку !!! Все ясно и понятно, а как теперь задать реакцию на событие(мне надо OnClick и OnMouseMove)для нового объекта, который не существовал до запуска программы!!!!

Заранее благодарю !!! И большое спасибо за помощь !!!

← →
Turalyon © (2002-08-19 10:59) [1]

Пишеше процедуру отдельную....
procedure OnMyEditClick (Sender : TObject);

.....

procedure TForm1.Button1Click(Sender: TObject); var x:TEDit; begin x:=TEdit.create(self); x.parent:=form1; x.left:=10; x.top:=10; x.Width:=250; x.Text:="Привет компонент появился сам!!!"; x.OnClick := OnMyEditClick; end;

← →
Anatoly Podgoretsky © (2002-08-19 11:26) [2]

Не пиши отдельную процедуру, все равно побругает, нужна процелура метод класса

← →
Mr © (2002-08-19 12:12) [3]

unit Unit1;

interface

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

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

var
Form1: TForm1;
x:TEdit;
implementation

{$R *.dfm}

procedure OnEC(Sender : TObject);
begin
x.Text:="!!!!!!!!!!!!!";
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=TEdit.create(self);
x.parent:=form1;
x.left:=10;
x.top:=10;
x.Width:=250;
x.Text:="Привет компонент появился сам!!!";
x.OnClick:=OnEC;
end;

end.

Он очень громко ругается и пишет:
[Error] Unit1.pas(39): Incompatible types: "method pointer and regular procedure"

← →
Skier © (2002-08-19 12:23) [4]

>Mr

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure OnEC(Sender : TObject); public { Public declarations } end; var Form1: TForm1; x:TEdit; implementation {$R *.dfm} procedure TForm1.OnEC(Sender : TObject); begin x.Text:="!!!!!!!!!!!!!"; end; procedure TForm1.Button1Click(Sender: TObject); begin x:=TEdit.create(self); x.parent:=form1; x.left:=10; x.top:=10; x.Width:=250; x.Text:="Привет компонент появился сам!!!"; x.OnClick:=OnEC; end; end.

Огромное спасибо всем!!!!!!! Учту, исправлю, буду стараться !!! :)

http://delphi.vitpc.com/helloworld/index.htm
Статья "Жизнь и смерть в режиме run-time" - там есть ответы на все ваши вопросы

Создание объектов во время работы программы !!! Найти похожие ветки