Помогите с DBGRID-ом и MEMO ! Спасибо!

← →
Officeman (2003-04-25 19:33) [0]

Доброе время суток! недавно здесь задавался влпрос. я к сожалению его неуспел подчеркнуть для себя. =/

1. Как настроить DBGRID под MouseScroll. Чтоб можно было путешествавать по всей базе.

2. Вывожу в Memo1 много текста. читаю файл. если текст много, то после открытия. вижу НИЗ - страницы... как Автоматически переползти на начало страницы Memo1.Scroll.......
нужна строка номер=ноль;

спасибо!

← →
Officeman (2003-04-26 09:16) [1]

Очень очень нужно....
жду ответа.

← →
Leran2002 © (2003-04-26 09:43) [2]

sniknik © (10.04.03 13:26)
может это решит часть "пролеммы"

описываеш
type

TWMMouseWheel = packed record
Msg: Cardinal;
Keys: SmallInt;
WheelDelta: SmallInt;
case Integer of
0: (
XPos: Smallint;
YPos: Smallint);
1: (
Pos: TSmallPoint;
Result: Longint);
end;

TMyDBGrid = class(TDBGrid)
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
Private
.........

procedure TMyDBGrid.WMMouseWheel(var Message: TWMMouseWheel);
begin
if DataSource.DataSet.Active then begin
if Message.WheelDelta > 10 then DataSource.DataSet.Prior;
if Message.WheelDelta < -10 then DataSource.DataSet.Next;
end;
end;

вызываеш примерно так
procedure TMainForm.FormCreate(Sender: TObject);
begin
DBGrid:= TMyDBGrid.Create(TabSheet1);
DBGrid.Parent:= TabSheet1;
DBGrid.Align:= alClient;
DBGrid.BorderStyle:= bsNone;
DBGrid.DataSource:= DataSource1;
DBGrid.OnDblClick:= DBGridDblClick;
DBGrid.OnKeyPress:= DBGridKeyPress;
DBGrid.OnTitleClick:= DBGridTitleClick;
DBGrid.PopupMenu:= PopupMenu3;
end;

← →
Proton © (2003-04-27 02:13) [3]

для мемо например так
Memo1.SelStart := 0 ; Memo1.SelLength := 0 ;

← →
Officeman (2003-04-27 09:50) [4]

! премного благодарен!

Помогите с DBGRID-ом и MEMO ! Спасибо! Найти похожие ветки