Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Вниз
Как отловить скроллинг/отрисовку TScrollBox? Найти похожие ветки
← →
AlexeyT © (2006-12-07 02:26) [0]См. тему. События такого (OnScroll или OnPaint) у scrollbox"а нету.
Как отловить?
Нужно это для того, чтобы после скроллинга перемещать в нужную позицию scrollbox"а метку, она у меня выводит информацию о содержимом формы. Почему не сделать родителем метки саму форму - потому что хочу отрисовку прозрачной метки поверх картинки в scrollbox"е. Если метка или статик-текст на форме, то это не получается.
← →
Loginov Dmitry © (2006-12-07 07:49) [1]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AppEvnts;
type
TMyScrollBox = class(TScrollBox)
procedure WMHScroll(var Msg: TMessage); message wm_hscroll;
procedure WMVScroll(var Msg: TMessage); message wm_vscroll;
end;
TScrollBox = class(TMyScrollBox);
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TMyScrollBox }
procedure TMyScrollBox.WMHScroll(var Msg: TMessage);
begin
inherited;
// Обработка горизонтального скролла
Beep;
end;
procedure TMyScrollBox.WMVScroll(var Msg: TMessage);
begin
inherited;
// Обработка вертикального скролла
Beep;
end;
end.
← →
AlexeyT © (2006-12-07 16:24) [2]Thanx!
Похоже, то что нужно.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
