社区
Delphi
帖子详情
简单的memo的滚动问题...
hehaa
2003-08-20 06:15:00
如何捕获memo的滚动?
我想这样:
用户在滚动memo1的时候发送memo2.也让它滚动....
mem2.Perform(WM_VSCROLL,SB_LINEDOWN,0);
TKS!
...全文
36
2
打赏
收藏
简单的memo的滚动问题...
如何捕获memo的滚动? 我想这样: 用户在滚动memo1的时候发送memo2.也让它滚动.... mem2.Perform(WM_VSCROLL,SB_LINEDOWN,0); TKS!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
timgreen
2003-08-20
打赏
举报
回复
关注
mrtxc
2003-08-20
打赏
举报
回复
两个Grid的同步滚动
synchronize the Scrolling of two TStringgrids?
P.Below
{1.}
unit SyncStringGrid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TSyncKind = (skBoth, skVScroll, skHScroll);
TSyncStringGrid = class(TStringGrid)
private
FInSync: Boolean;
FsyncGrid: TSyncStringGrid;
FSyncKind: TSyncKind;
{ Private declarations }
procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;
protected
{ Protected declarations }
public
{ Public declarations }
procedure DoSync(Msg, wParam: Integer; lParam: Longint); virtual;
published
{ Published declarations }
property SyncGrid: TSyncStringGrid read FSyncGrid write FSyncGrid;
property SyncKind: TSyncKind read FSyncKind write FSyncKind default skBoth;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TSyncStringGrid]);
end;
procedure TSyncStringGrid.WMVScroll(var Msg: TMessage);
begin
if not FInSync and
Assigned(FSyncGrid) and
(FSyncKind in [skBoth, skVScroll]) then
FSyncGrid.DoSync(WM_VSCROLL, Msg.wParam, Msg.lParam);
inherited;
end;
procedure TSyncStringGrid.WMHScroll(var Msg: TMessage);
begin
if not FInSync and
Assigned(FSyncGrid) and
(FSyncKind in [skBoth, skHScroll]) then
FSyncGrid.DoSync(WM_HSCROLL, Msg.wParam, Msg.lParam);
inherited;
end;
procedure TSyncStringGrid.DoSync(Msg, wParam: Integer; lParam: Longint);
begin
FInSync := True;
Perform(Msg, wParam, lParam);
FinSync := False;
end;
end.
{****************************************}
{2.}
private
OldGridProc1, OldGridProc2: TWndMethod;
procedure Grid1WindowProc(var Message: TMessage);
procedure Grid2WindowProc(var Message: TMessage);
public
{...}
procedure TForm1.Grid1WindowProc(var Message: TMessage);
begin
OldGridProc1(Message);
if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or
Message.msg = WM_Mousewheel)) then
begin
OldGridProc2(Message);
end;
end;
procedure TForm1.Grid2WindowProc(var Message: TMessage);
begin
OldGridProc2(Message);
if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or
(Message.msg = WM_Mousewheel)) then
begin
OldGridProc1(Message);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OldGridProc1 := StringGrid1.WindowProc;
OldGridProc2 := StringGrid2.WindowProc;
StringGrid1.WindowProc := Grid1WindowProc;
StringGrid2.WindowProc := Grid2WindowProc;
end;
以上资料超猛,希望对楼主有用。
delphi编写键盘记录
开始吧 电脑安装delphi...// 使
memo
滚动
到最底行 end; procedure TForm1.FormCreate(Sender: TObject); begin myfiledir := getcurrentdir; 好了 运行试试看看吧 好了 具体 就是这样了 不需要任何控件 好了教程就到这
Lotus.Domino.Web编程
5.10 例子:在一个
滚动
按钮中预先下载 图片 119 5.11 例子:显示对话框 121 5.11.1 Order Form表单 123 5.11.2 Select Parts表单 124 5.11.3 Read-Only Order Form表单 127 5.11.4 Orders视图 127 5.12 例子:操纵...
HTML网页设计语言入门基础教学视频
本课程为软件相关专业网页设计入门基础课程,课程共18讲,上课代码及PPT课件已经上传,可以直接下载使用。主要课程内容如下:1.讲解HTML基本概念,HTML的基本结构;2.讲解表格与超级链接标签的使用方法;3.讲解字体风格与
滚动
字符;4.讲解标题标签与段落标签;5.讲解图片与表格布局综合应用;6.讲解CSS样式表的定义与使用;7.统一风格;浮动窗口的使用;8.讲解多媒体背景音乐与视频播放使用;9.讲解表单及常用控件的使用;10.讲解
简单
javascript使用;11.个人网站制作
API精灵源码(C#编)
2004.03.11 21:10:15 完成
滚动
字幕的设置,启用了一个TIMER控件,然后设置时间,删除字符串的第一个字母已达到
滚动
效果! 2004.03.11 22:02:00 改正更新时出现空值出错
问题
,新填函数isnull 2004.03.12 13:22:08 ...
Delphi2010教程
设计一个
简单
的文本操作程序 用到的组件介绍:
memo
独有的主要属性: lines 用于访问框中的每一行内容 maxlength 文本框中的最大输入数量 scrollbar 用户设置是否需要
滚动
条。Ssboth 水平和垂直
滚动
条多加上 ...
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章