1 Востаннє редагувалося Torbins (09.06.2016 13:10:08)

Тема: Потрібно видалити контроли на формі

if RadioButton11.Checked=true then             //1/128
begin
Button:=TShape.Create(Form1);
Button.Parent:=Form3;
Button.Left:=xc-10;
Button.Top:=yc-50;
Button.Visible:=true;
Button.Shape:=stCircle;
Button.Height:=25;
Button.Width:=25;
Button.Brush.Color:=clred;
Button.Enabled:=false;
dva:=dva+3;
end;

я створив елемент і розмістив його на формі, дальше потрібно щоб при натиску на кнопку "очистити" ці елементи видалялися. допоможіть

2 Востаннє редагувалося Torbins (09.06.2016 12:51:26)

Re: Потрібно видалити контроли на формі

Перебирайте Controls. Докладніше: Жизнь и смерть в режиме run-time

Подякували: leofun011

3

Re: Потрібно видалити контроли на формі

Страница не найдена

4

Re: Потрібно видалити контроли на формі

У мене відкривається, але ви можете загуглити назву.

5

Re: Потрібно видалити контроли на формі

розбийте силку на частини щоб я просто скопіював її

6

Re: Потрібно видалити контроли на формі

http://www. delphikingdom. com/asp/viewitem. asp?catalogid=342
Приберіть пробіли

7

Re: Потрібно видалити контроли на формі

не відкриває(

8

Re: Потрібно видалити контроли на формі

https://www.google.com.ua/search?q=%D0% … 5+run-time

9

Re: Потрібно видалити контроли на формі

здається можна переписати ще так

if RadioButton11.Checked=true then             //1/128
begin
Button:=TShape.Create(Form1);
with Button do
begin
Parent:=Form3;
Left:=xc-10;
Top:=yc-50;
Visible:=true;
Shape:=stCircle;
Height:=25;
Width:=25;
Brush.Color:=clred;
Enabled:=false;
end;
dva:=dva+3;
end;
##########
##PYTHON##
#########

10

Re: Потрібно видалити контроли на формі

http://www.delphisources.ru/pages/faq/f … h.php.html

##########
##PYTHON##
#########

11

Re: Потрібно видалити контроли на формі

shabaranskij
with у його поточній формі дуже небезпечний, тому не варто його використовувати без зайвої потреби.

Подякували: shabaranskij1

12

Re: Потрібно видалити контроли на формі

які проблеми можуть бути якщо використовувати with?

##########
##PYTHON##
#########

13

Re: Потрібно видалити контроли на формі

shabaranskij написав:

які проблеми можуть бути якщо використовувати with?

Плутанина і погіршення читаності:

with SomeObject do begin
{купа всього}
x:=10;
end;
if x>20 then ... {це інший x!}

чи навіть так:

with Object1 do begin
  with Object2 do begin
    x:=1;{Object1.x}
    y:=2;{Object2.y}
    Func(x);{Object2.Func(Object1.x)!}
  end;
end;

Вважається правильнішим успадковуватися від об'єкта і змінювати його властивості в нових функціях, а не використовувати with. Втім, в простих випадках, дійсно, особливих проблем немає.

Подякували: shabaranskij, leofun01, DOP3

14

Re: Потрібно видалити контроли на формі

shabaranskij

Caption := 'My Form';
with Label1 do
begin
  Font.Size := 10;
  Font.Color := clRed;
  ShowHint := True;
  Hint := 'This is ' + Caption;
end;

Яке значення матиме Label1.Hint? Скільки часу ви витратили на розмірковування?

Подякували: koala, ADR, leofun013

15

Re: Потрібно видалити контроли на формі

http://citforum.ru/programming/delphi/style_delphi/

Подякували: leofun01, Torbins2