Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Объекты в StringGrid   Найти похожие ветки 

← →
md5 hash   (2004-10-18 08:15) [0]

Доброго всем мастерам и новичкам Delphi.
Решил заделать небольшую фишку в своей проге. Имеется оформленный StringGrid. Возможно ли поместить в отдельную его ячейку какой нить компонент типа TEdit или TCheckBox. И если возможно, то как получить с него введненные значения. Спасибо.

---

← →
Warlock ©   (2004-10-18 09:02) [1]

Быстро и коряво:

На форма в любом месте лежить 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;


этот код можно переработать пограмотнее.

---

← →
KSergey ©   (2004-10-18 09:14) [2]

Ну эдит туда [в ячейку] и так помещается. Сам по себе, редактирование просто включить надо.

А по поводу чекбоксов - читать где-нибудь тут

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c