VPF::Как узнать на что нажали - Форум программистов

Кощей

Дата 22.6.2009, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

У меня динамически создаются несколько кнопок. Создаются по описанию из инишника. Можно как нибудь узнать к примеру какая из кнопок была нажата и вызвыла эту процедуру?

THandle

Дата 22.6.2009, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Кощей, узнавай в OnClick через Sender. Можно через свойство Name, можно Tag каждой свой поставить.

Что то типа:

Код



procedure TForm2.ButtonClick(Sender: TObject);
begin
  if Sender is TComponent then
    if (Sender as TComponent).Name = 'Button1' then
      ShowMessage('Нажата Button1');
end;

Вообще различных примеров на форуме навалом. smile

Кощей

Дата 22.6.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

Прост не знал как в поиск забить, спасибо огромное

Кощей

Дата 22.6.2009, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

А как выполнить действие над компонентом если его название имеется только в виде строки?

Данкинг

Дата 22.6.2009, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Кощей @ 22.6.2009, 20:04

)

А как выполнить действие над компонентом если его название имеется только в виде строки?

1. Одна тема - один вопрос.
2. Не понял, чего ты хочешь. smile

--------------------

There's nothing left but silent epitaphs.

Кощей

Дата 22.6.2009, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

нужно поставить visible:= true для компонента....создается так же динамически, и имя его генерируется так же...но не хочется загонять в массив...

т.е. к примеру

Код


With TImage.Create(Self) do
  begin
    Name:= NameBtn;
    Parent:= Panel;
    Picture.LoadFromFile(AddressBtnFile);
    Top:= 0;
    Left:= LeftBtn;
    Height:= 32;
    Width:= 32;
    Proportional:= true;
    Visible:= false;
 end;

, и нужно в одной процедуре показать эту картинку....

Rohoss

Дата 22.6.2009, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Надо перебирать все компоненты владельца, что то вроде такого

Код


var
  I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if (Self.Components[I].Name = 'MyComponent') then
    begin
     (Self.Components[I] as TWinControl).Visible = True;
    end;
  end;
end;

--------------------

Файловый менеджер Explorer.Net скачать video

Кощей

Дата 22.6.2009, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

спс...чет тормознулся я...

тольке не Вин контрол а TControl

Это сообщение отредактировал(а) Кощей - 22.6.2009, 20:33

Keeper89

Дата 22.6.2009, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(Кощей @ 22.6.2009, 21:16

)

тольке не Вин контрол а TControl

Если известно, что за компонент, проще вообще TButton.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Кощей

Дата 23.6.2009, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.5.2009

Репутация: нет
Всего: нет

Ну да...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »