| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Объекты в StringGrid [D7]
md5 hash © (2004-10-18 08:15:00)Доброго всем мастерам и новичкам Delphi.
Решил заделать небольшую фишку в своей проге. Имеется оформленный StringGrid. Возможно ли поместить в отдельную его ячейку какой нить компонент типа TEdit или TCheckBox. И если возможно, то как получить с него введненные значения. Спасибо.
KSergey (2004-10-18 09:14:00) [1]Ну эдит туда [в ячейку] и так помещается. Сам по себе, редактирование просто включить надо.
А по поводу чекбоксов - читать где-нибудь тут
http://www.delphikingdom.com/helloworld/dbgridcolor.htm
http://www.delphikingdom.com/helloworld/mergegrid.htm
http://www.delphikingdom.com/helloworld/nogrid.htm
http://www.delphikingdom.com/helloworld/grid.htm
http://www.delphikingdom.com/helloworld/dbgridplus.htm
Warlock (2004-10-18 09:02:00) [2]Быстро и коряво:
На форма в любом месте лежить Edit1 с свойством Visible = False
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
Edit1.Top:=StringGrid1.Top+ARow*StringGrid1.DefaultRowHeight+4;
Edit1.Left:=StringGrid1.Left+ACol*StringGrid1.DefaultColWidth+4;
Edit1.Width:=StringGrid1.DefaultColWidth;
Edit1.Text:=StringGrid1.Cells[ACol,ARow];
Edit1.Visible:=True;
Edit1.SetFocus;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_Return then
begin
Edit1.Visible:=False;
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:=Edit1.Text;
Edit1.Text:='';
end;
end;
этот код можно переработать пограмотнее.
| |
