[delpi12]

как удалить компонент Edit при нажимание ?

[Alegun]

Код:

1 2 3 4 5 6 7 8 9 10 11

... // При создании едита задать edt.OnClick:= EdtClick; ...   // Достаточно одной процедуры для всех едитов сразу procedure TForm1.EdtClick(Sender: TObject); begin (Sender as TEdit).Visible:= false; (Sender as TEdit).FreeOnRelease; end;

[delpi12]

Сообщение от Alegun

Код:

а можна по одному удалять ?

[Alegun]

Подразумевается что для всех едитов задаётся вот эта процедура, а удавляться они будут всё равно по-одному

[delpi12]

Сообщение от Alegun

Подразумевается что для всех едитов задаётся вот эта процедура, а удавляться они будут всё равно по-одному

ошибку выдает

[Alegun]

В новом проекте на форму киньте кнопарь и кликнув на него замените содержимое юнита на это

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure EdtClick(Sender: TObject);     private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   X, Y : integer; implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var edt: TEdit; begin edt:= Tedit.Create(self); edt.Parent:= form1; edt.Text:= 'Edit'+ IntToStr(Y); edt.OnClick:=EdtClick; edt.Left:= X + 30; edt.Top:= Y + 30; Inc(X,30); Inc(Y,10); end;   procedure TForm1.EdtClick(Sender: TObject); begin (Sender as TEdit).Visible:= false; (Sender as TEdit).FreeOnRelease; end;   end.

ошибки?

[delpi12]

Сообщение от Alegun

В новом проекте на форму киньте кнопарь и кликнув на него замените содержимое юнита на это

Код:

ошибки?

так не создается editы , вобше нечего не присходить

[Alegun]

Понажимайте на кнопку а потом на едиты, опять ошибки?

[delpi12]

Сообщение от Alegun

Понажимайте на кнопку а потом на едиты, опять ошибки?

все отлично , спасибо но почему они создаются над друг другом ?

[Alegun]

Сообщение от delpi12

...но почему они создаются над друг другом ?

Потому как

Код:

1 2	edt.Left:= X + 30; edt.Top:= Y + 30;