Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Officeman © (2003-04-25 19:33:00)
Доброе время суток! недавно здесь задавался влпрос. я к сожалению его неуспел подчеркнуть для себя. =/

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

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

спасибо!

Officeman (2003-04-27 09:50:00) [1]
! премного благодарен!

Proton (2003-04-27 02:13:00) [2]
для мемо например так
Memo1.SelStart := 0 ; Memo1.SelLength := 0 ;

Leran2002 (2003-04-26 09:43:00) [3]
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;

Officeman (2003-04-26 09:16:00) [4]
Очень очень нужно....
жду ответа.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »