如何在StringGrid的Cell上显示及编辑多行文本?行数不可变(50分)

I

iwinyee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #1

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #2

setwindowlong(stringgrid.inplaceeditor.handle, GWL_STYLE,
getwindowlong(stringgrid.inplaceeditor.handle, GWL_STYLE)
or ES_MULTILINE or ES_WANTRETURN
or ES_AUTOHSCROLL or ES_AUTOVSCROLL);

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #3

>>

 

I

iwinyee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #4

可否讲详细点？TStringGrid没有inplaceeditor对象只在TCustomGrid中才有它，
另外代码置于何处？

 

C

churchill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #5

TStringGrid继承于TCustomGrid,把TStringGrid按TCustomGrid访问就有TInplaceEditor.

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #6

能不能找个这样功能的控件呢

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #7

呵呵, eyes用setwindowlong回答了若干问题了
请详述一下setwindowlong的用法?

 

I

iwinyee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-20

• #8

还是不行！
我用 (StringGrid1 as TCustomGrid).inplaceeditor... 或
with StringGrid1 as TCustomGrid do...
均返回编译错误。
代码应置于何处？ 我放在FormActivate中。

 

T

Teikini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-20

• #9

Look at ......

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-20

• #10

Teikini :
你说的是看什么啊?

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-22

• #11

hi:
我找到了这个控件：AdvStringGrid,它有一个Multilinecells属性，设为true
就可以显示多行数据了。至于编辑嘛，可能需要自己动手了。

 

I

iwinyee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-24

• #12

Another_eYes:
怎么样？SetWindowLong不行，返回错误：Control has no parent!
我用TEdit做过试验，但不起作用！

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #13

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);
var
TheGrid : TStringGrid;
A : String;
begin
TheGrid := Sender as TStringGrid;
if (Row < TheGrid.FixedRows) or (Col < TheGrid.FixedCols) then
TheGrid.Canvas.Brush.Color := clBtnFace
else
TheGrid.Canvas.Brush.Color := clWhite;
TheGrid.Canvas.FillRect(Rect);
A := TheGrid.Cells[Col,Row];
DrawText( TheGrid.Canvas.Handle,PChar(A),StrLen(PChar(A)),Rect,DT_WORDBREAK);
end;

编辑也差不多吧，
这个行数是随着长度的变化而变的，要不动态的判断，再改宽度？？
试一试吧。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-09

• #14

接受答案了.