Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2012, 03:06   #11
=master=
Форумчанин
 
Регистрация: 26.03.2012
Сообщений: 665
По умолчанию

не знаю что такое "перенаправление", но само значение слова (сендер это отправитель) указывает на то, что это и есть тот батон на который кликнули.
=master= вне форума Ответить с цитированием
Старый 28.03.2012, 03:07   #12
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

28.03.2012 03:07
В Sender указывается Объект который возбудил событие!
Допустим если нажмещь на Button1 То сработает Событие OnClick
И вызывется обработчик ButtonClick1 параметром Sender будет Button1

28.03.2012 03:22
Я вот так решил Эту проблему!
Обьявил 1 общий обработчик в первой кнопке остальные обработчики сослал на Button1Click
(Я думаю знаете как это сделать)
И написал такой код
Код:
var
  Form1: TForm1;
  pr: TObject;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
    if pr = nil then
         pr := Sender
    else
    begin
      if pr <> sender then
             TButton(pr).Visible := false;
      pr := sender;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pr := nil;
end;

end.



_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Serge_Bliznykov; 28.03.2012 в 14:10.
Hacker19_90 вне форума Ответить с цитированием
Старый 28.03.2012, 11:29   #13
ACE Valery
Сама себе режиссер
Старожил
 
Аватар для ACE Valery
 
Регистрация: 27.04.2007
Сообщений: 3,365
По умолчанию

Ребята, давайте не будем плодить подряд сообщения, здесь не чат. В в течение двух часов можете отредактировать свое последнее, чтобы добавить туда новую мысль, которая пришла к вам после отправки сообщения.
Если я вас напрягаю или раздражаю, вы всегда можете забиться в угол и поплакать
ACE Valery вне форума Ответить с цитированием
Старый 28.03.2012, 13:18   #14
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Как я понял, там что-то типа сапёра 10*10)

Код:
  Form1: TForm1;
            Index : Integer;
           Buttons : array [1..100] of TButton;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ButtonClick(Sender: TObject);
begin
   If Sender is TButton then (Sender as TButton).Visible := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  For Index := 1 to 100 do
    begin
       Buttons[Index] := TButtons.Create(nil);
       Buttons[Index].Name := 'MyButton' + inttostr(Index);
       Buttons[Index].Tag := Index;
       Buttons[Index].Parent := Form1; 
       Buttons[Index].OnClick = ButtonClick;
       //можно выставить в цикле и распределение по форме и т.п. в зависимости от того, что необходимо.
    end;
end;

end.
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TButton Yriy Помощь студентам 4 28.01.2012 14:21
Цвет TButton guffer Общие вопросы Delphi 3 18.08.2009 12:00
[C] массивы, указатели, двойные указатели. Iggel Общие вопросы C/C++ 5 05.05.2009 12:39
Компонент TButton... slim5 Помощь студентам 7 17.06.2008 17:58
цвет caption в Tbutton EdNovice Компоненты Delphi 5 31.05.2008 22:57