|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как передать в функцию динамически созданный TStringgrid?
Создаю динамически TStringgrid
Код:
with TStringGrid.Create(Self) do begin RowCount:=1; ColCount:=2; Parent := pnl1; Name := 'sg'+inttostr(i); Options := Options + [goEditing]; Options := Options -[goDrawFocusSelected]; Left:=0; DefaultRowHeight:=24; Top:=DefaultRowHeight*i; FixedCols:=0; FixedRows:=0; ColWidths[0]:=20; ColWidths[1]:=50; Width :=ColWidths[0]+ColWidths[1]+5; Height :=DefaultRowHeight+2; GridClean(????); end; Код:
procedure TForm1.GridClean(Sender: TObject); var hGridRect: TGridRect; begin hGridRect.Top := -1; hGridRect.Left := -1; hGridRect.Right := -1; hGridRect.Bottom := -1; (Sender as TStringgrid).Selection := hGridRect; end; Последний раз редактировалось DdiK, 13.01.2018 в 09:44. |
#2
|
||||
|
||||
...........................................
Код:
... sg := StringGrid.Create(Self); with sg do begin ... ... end; ClearGrid(sg); ... Код:
procedure ClearGrid(Grid: TStringGrid); var hGridRect: TGridRect; begin hGridRect.Top := -1; hGridRect.Left := -1; hGridRect.Right := -1; hGridRect.Bottom := -1; Grid.Selection := hGridRect; end; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
||||
|
||||
Код:
with TStringGrid.Create(Self) do begin ... Name := 'sg'+inttostr(i); ... end; GridClean(FindComponent('sg'+inttostr(i))); ... Помогаю платно. Помогаю иногда бесплатно. |
Этот пользователь сказал Спасибо @Rafa3L за это полезное сообщение: | ||
DdiK (13.01.2018)
|
#4
|
||||
|
||||
Вообще любой объект это набор данных, который начинается с определённого адреса. Есть тип Pointer.
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
DdiK (13.01.2018)
|