Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
1367 / 590 / 199
Регистрация: 02.08.2011
Сообщений: 2,882
1

По событию нажатия на кнопку вызвать функцию, в которой ждать нового нажатия на ту же самую кнопку

04.05.2014, 19:16. Показов 1628. Ответов 1
Метки нет (Все метки)

Delphi
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
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
    tek_pos:Integer;  //Счетчик (для создания уник. имен, к имени в конец добавляется счетчик)
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
function ComponentRunTimeShow(const i:Integer):Integer;
var MyLabel:Tlabel;
Begin
    MyLabel:=TLabel.Create(Form1);
    MyLabel.Name:='MyComponent_'+IntToStr(i);
    MyLabel.Caption:='MyLabel'+IntToStr(i);
    MyLabel.Parent:=Form1;
        {Нужно ждать нажатие на TButton} //такое как-то делается?
    MyLabel.Free;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   tek_pos:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ComponentRunTimeShow(tek_pos); //Вызываю функцию, которая должна ждать след.вызова события, которое эту функцию вызывает
   inc(tek_pos);
end;
Смысл в том, что нажал на кнопку и программа показывает созданный компонент на форме. Нажал на эту же кнопку снова, программа уничтожает текущий компонент и показывает новый. Т.е. компонент не должен уничтожаться пока кнопка не будет нажата.
..................................
Как-то такое можно сделать? Если можно, то как?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2014, 19:16
Ответы с готовыми решениями:

Вызвать событие без нажатия на кнопку
Пишу скрипт на greasemonkey под файрфокс. Код на сайте <tr id="id12"><td>12</td><td><span...

По нажатию на кнопку вызвать обработчик нажатия другой кнопки
Как сделать так, чтобы при нажатии на кнопку Button2, осуществлялся переход на функцию Button1, то...

Как вызвать событие Onclick без нажатия на кнопку
суть в чем... имею конструкцию <IMG SRC=http://img.example.ru/i/top2.gif WIDTH=27 HEIGHT=20 ALT...

По нажатию на одну кнопку вызвать обработчик нажатия другой кнопки
Подскажите пожалуйста, как можно сделать что-бы при нажатии на Button1 автоматом включался Button2?...

1
2648 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,725
04.05.2014, 22:36 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
function ComponentRunTimeShow(const i:Integer):Integer;
var 
  MyLabel:Tlabel;
Begin
  if i > 0 then
    FindComponent('MyComponent_'+IntToStr(Pred(i))).Free;
  MyLabel:=TLabel.Create(Form1);
  MyLabel.Name:='MyComponent_'+IntToStr(i);
  MyLabel.Caption:='MyLabel'+IntToStr(i);
  MyLabel.Parent:=Form1;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2014, 22:36

Появления нового поля для ввода после нажатия на кнопку
Нужно что-бы после нажатия кнопки на форме появлялось поле для ввода. Желательно, чтобы предыдущие...

После нажатия на кнопку TBitBtn сделать кнопку не действующей
Как после нажатия на кнопку bitbtn1 кнопка становилась не действушей

1C- 8.0, Немогу вызвать процедуру отчета по событию нажатия кнопки
1C- 8.0, Немогу вызвать процедуру отчета по событию нажатия кнопки, так как в собтие кнопки такую...

Нажатия на кнопку
Всем привет!! возник вот такой вопрос когда, я нажимаю на кнопку то у меня рисуеться фигура, потом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.