Текст в ячейке

Манипуляция словами в TStringGrid

2017-08-11T19:36:28+07:00

Code:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

var

s: string;

c: Byte;

begin

with StringGrid1 do

s := Cells[Col, Row];

if Length(s) = 0 then

begin

if Key in ['a'..'z'] then

begin

c := Ord(Key) - 32;

Key := Chr(c);

end;

exit;

end;

if s[Length(s)] = ' ' then

if Key in ['a'..'z'] then

begin

c := Ord(Key) - 32;

Key := Chr(c);

end;

//В обработчике события onKeyPress сделайте следующее:

if length(field.text) = 0 then

key := upCase (key);

Ограничение длины поля TStringGrid

2017-08-11T19:35:51+07:00

Вероятно, это не очень эффективное решение, но оно будет работать: поместите следующий код в обработчик события onKeyPress:

Подробнее...

Текст в ячейке StringGrid если не помещается переносится на следующую ячейку

2017-08-11T19:36:09+07:00

Code:

//Сначала нужно обработать событие OnDrawCell компонента TStringGrid:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

var

i, x, y: Integer;

begin

if gdFixed in State then

Exit;

if ARow > 1 then

Exit;

{Draw row 1 with text from cell 1,1 spanning all cells in the row}

with sender as TStringGrid do

begin

{Extend rect to include grid line on right, if not last cell in row}

if aCol < Pred(ColCount) then

Rect.Right := Rect.Right + GridlineWidth;

{Figure out where the text of the first cell would start

relative to the current cells rect}

y := Rect.Top + 2;

x := Rect.Left + 2;

for i:= 1 to aCol - 1 do

x := x - ColWidths[i] - GridlineWidth;

{Paint cell pale yellow}

Canvas.Brush.Color := $7FFFFF;

Canvas.Brush.Style := bsSolid;

Canvas.FillRect( Rect );

{Paint text of cell 1,1 clipped to current cell}

Canvas.TextRect( Rect, x, y, Cells[1, 1] );

end;

//По созданию окна изобразим следующее

procedure TForm1.FormCreate(Sender: TObject);

var

i, k: Integer;

begin

with StringGrid1 do

begin

cells[1, 1] := 'A rather long line which will span cells';

for i:= 1 to colcount-1 do

for k:= 2 to rowcount -1 do

cells[i,k] := Format( 'Cell[%d, %d]', [i, k]);

end;