|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Кнопка в StringGrid
Есть две процедуры: Первая рисует кнопки и открывает текстовый файл, вторая обрабатывает клик по кнопки. Вот эти процедуры:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; f : TStringList; begin f := TStringList.Create(); f.LoadFromFile('C:\1.txt'); for i:=1 to 4 do with TBitBtn.Create(StringGrid1) do begin Caption:='Кнопка'; Parent:=StringGrid1; BoundsRect:=StringGrid1.CellRect(1, i); OnMouseUp:=BitBtn1MouseUp; end; end; procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ShowMessage(<Здесь информация о кнопки>) end; Вопрос: Как во второй процедуре по клику какой либо из кнопок выводилась информация из файла соответствующая данной кнопки . Заранее спасибо Последний раз редактировалось Admin, 20.04.2011 в 10:31. |