|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.02.2009, 22:07 | #1 |
Форумчанин
Регистрация: 27.07.2007
Сообщений: 123
|
Как определить, какая кнопка нажата?
как правильно нужно написать в процедуре ClickRun, чтобы различать какая кнопканажата?
procedure TForm1.ClickRun(Sender: TObject); begin //showmessage((Sender as knopks.Name)); // вот тут нужно определить какая кнопка нажата end; procedure TForm1.FormCreate(Sender: TObject); var i:integer; k:integer; begin k := 0; ADOTable1.First; SetLength(arr,ADOTable1.RecordCount ); for I := 0 to ADOTable1.RecordCount-1 do begin knopks := TSpeedButton.Create(Form1); with knopks do begin knopks.Parent := Form1.ScrollBox1; knopks.Left := 5; knopks.Width := 105; knopks.Height := 41; knopks.Top := 5+k; knopks.Caption := ADOTable1name.AsString; knopks.OnClick := ClickRun; knopks.tag := i; arr[i] := ADOTable1path.AsString; knopks.Name := 'Buttons'+inttostr(i); end; k := k + +knopks.Height; ADOTable1.Next; end; end;
Ну что ж… Жизнь иногда такие фертеля выкидывает, что и фантасту не приснится…
|
19.02.2009, 23:15 | #2 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Код:
Последний раз редактировалось mihali4; 20.02.2009 в 00:12. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как у Inputbox узнать, что была нажата кнопка Сancel? | Artem | Компоненты Delphi | 2 | 02.04.2011 23:31 |
Как узнать нажата ли кнопка(Button) в чужом приложении? | progan | Win Api | 7 | 13.01.2011 09:08 |
Как с помощье ReadKey определить что нажата клавиша "Стрелка" | Викдон | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 05.02.2009 00:47 |
какая функция определяет - была-ли нажата левая кнопка мыши, положение мышки на экране | Wicing | Общие вопросы Delphi | 5 | 11.12.2007 10:17 |
нажата ли кнопка мыши? | VDLab | Общие вопросы Delphi | 2 | 15.11.2006 00:59 |