界面问题请教 在一个Memo中显示信息时,如果一次显示不下,如何在界面上做两个按钮,作为翻页功能?比如 点一下 “下翻页” ,memo中下面的内容显示出来,点一下 “上翻页” ,memo中前面的内容显示出来, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sendMessage(Memo1.Handle,SB_PAGEDOWN,0,0)sendMessage(Memo1.Handle,SB_PAGEUP,0,0) sendmessage(memo1.handle,wm_keydown,sb_pagedown,0) unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBXpress, FMTBcd, DB, Grids, DBGrids, SqlExpr, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; OpenDialog1: TOpenDialog; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var sFileName : string;begin self.OpenDialog1.Execute; sFileName := self.OpenDialog1.FileName; self.Memo1.Lines.LoadFromFile(sfileName); self.Memo1.SetFocus;end;procedure TForm1.Button3Click(Sender: TObject);begin//sendmessage(memo1.handle,wm_keydown,sb_pagedown,0)sendMessage(Memo1.Handle,SB_PAGEDOWN,0,0)end;procedure TForm1.Button4Click(Sender: TObject);beginsendMessage(Memo1.Handle,SB_PAGEUP,0,0)end;end.什么反应也没有。光标还不能在 memo 中上下移动了,呵呵 求助:DBGrid中怎樣顯示SQL中固定為空的一列? ReportMachine里的图片打印的问题! 急:tab符显示的宽度问题 求教一条语句语法 在使用ildtcpserver的时候,需要注意的事项。。 急急急!!!系统开发完了,打包时怎么定制BDE,我只要FOXBASE的数据库引擎!! 关于可多选的ListBox之间条目移动,不知问题在哪,急切在线等待回复(附代码) 请大家帮忙! delplhi6得程序发布? 一个怪问题,大家看看 关于《Windows优化大师》的一点界面方面的问题? san fen
sendMessage(Memo1.Handle,SB_PAGEUP,0,0)
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, Grids, DBGrids, SqlExpr, StdCtrls;type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
sFileName : string;
begin
self.OpenDialog1.Execute;
sFileName := self.OpenDialog1.FileName;
self.Memo1.Lines.LoadFromFile(sfileName);
self.Memo1.SetFocus;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
//sendmessage(memo1.handle,wm_keydown,sb_pagedown,0)
sendMessage(Memo1.Handle,SB_PAGEDOWN,0,0)end;procedure TForm1.Button4Click(Sender: TObject);
begin
sendMessage(Memo1.Handle,SB_PAGEUP,0,0)
end;
end.什么反应也没有。光标还不能在 memo 中上下移动了,呵呵