怎样用sendmessage得到tdbgrid里的行的总数?

[ZHENG017]

如果说我要得到一个clistctrl里的item的总数,
我可以这样.int nItemCount = ::SendMessage(hWnd, LVM_GETITEMCOUNT, (WPARAM)0, (LPARAM)0);但是如果我想得到dephi中的tdbgrid里面的item的总数?应该sendmessage(hwnd,这儿应该是什么消息?
多谢.

[lws0472]

直接从dbgrid得到行数恐怕不行，因为dbgrid的行数是由他的数据源决定的，取别的控件如memo等的还可以
for example

procedure TForm1.Button1Click(Sender: TObject);
var
Linecount: Integer;
begin
Linecount := sendmessage(memo1.Handle,EM_GETLINECOUNT, $FFFF, 0);
showmessage(IntToStr(Linecount));
end;