得到其他窗口中 ListBox 内的内容

2000-08-29 06:15:00 248 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

AP 墨衍会员 · AI 创作全网分发关注 + 加入社区

【Spreadsheet】香港规范结构设计电子表格库开发方案深入理解香港本地规范特点和要求结合国际先进标准(Eurocode) 的技术内容考虑香港地理环境特殊性 (台风、地质等)建立完善的质量控制体系保持持续更新维护的能力。阅读详情

如何得到其他窗口中某个 ListBox 的内容。

...全文

学习心得——COMSOL Multiphysics with MATLAB联合仿真及寻优计算学习心得——COMSOL Multiphysics with MATLAB联合仿真及寻优计算阅读详情

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

AP 2000-08-30

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, yupack, vrclass, vrlcd, Tabs, DBCGrids,
DBCtrls;

type
TMainForm = class(TForm)
Timer1: TTimer;
Bevel1: TBevel;
Label1: TLabel;
Shape2: TShape;
Shape1: TShape;
Shape3: TShape;
YusoftWallpaper1: TYusoftWallpaper;
Bevel2: TBevel;
Label2: TLabel;
VrNum1: TVrNum;
Label3: TLabel;
TabSet1: TTabSet;
Notebook1: TNotebook;
Memo1: TMemo;
DBCtrlGrid1: TDBCtrlGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DBNavigator1: TDBNavigator;
DBNavigator2: TDBNavigator;
DBNavigator3: TDBNavigator;
DBNavigator4: TDBNavigator;
DBNavigator5: TDBNavigator;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
YusoftWallpaper2: TYusoftWallpaper;
YusoftWallpaper3: TYusoftWallpaper;
Bevel3: TBevel;
Bevel4: TBevel;
Image1: TImage;
SaveDialog1: TSaveDialog;
procedure Timer1Timer(Sender: TObject);
procedure TabSet1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var MainForm: TMainForm;
WHandle,ListBoxHandle:Hwnd;
YHDM:String;
GZSJ:Integer;
GZLX:String;

implementation

{$R *.DFM}
procedure TMainForm.Timer1Timer(Sender: TObject);
Var Stemp,LastLine,SecondLine:PChar;
LineCount,I,N, X,Y:Integer;
DM:String;
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clRed;
Shape3.Brush.Color:=clRed;

WHandle:=FindWindow(PChar('V6W'),Nil);
If WHandle<=0 Then
Begin
WinExec('V6W.EXE',0);
Exit;
End;
ShowWindow(WHandle,SW_HIDE);
Shape1.Brush.Color:=clGreen;

ListBoxHandle:=FindWindowEx(WHandle,0,Nil,Nil)+4;
LineCount:=SendMessage(ListBoxHandle,LB_GETCOUNT,0,0);
If LineCount<=0 Then
Begin
SendMessage(WHandle,WM_Close,0,0);
Exit;
End;

Shape2.Brush.Color:=clGreen;
GetMem(Stemp,80);
GetMem(LastLine,80);
GetMem(SecondLine,80);

If LineCount>0 Then
SendMessage(ListBoxHandle,LB_GETTEXT,0,Longint(LastLine));
If LineCount>1 Then
SendMessage(ListBoxHandle,LB_GETTEXT,0,Longint(SecondLine));

N:=0;
For I:=0 To Memo1.Lines.Count-2 Do
If ((Memo1.Lines[I]=LastLine) AND (Memo1.Lines[I]=SecondLine)) Then
Begin
N:=I;
Break;
End;

For I:=ABS(N-Memo1.Lines.Count) To LineCount-1 Do
Begin
SendMessage(ListBoxHandle,LB_GETTEXT,I,Longint(Stemp));
If Length(Stemp)>0 Then
Begin
Memo1.Lines.Add(Stemp);

If Pos('DM:=[',Stemp)>0 Then
Begin
//1 不同于YHDM 则保存原故障信息记录用户代码
X:=Pos('DM:=[',Stemp);
Y:=Pos(']',Stemp);

DM:=Copy(Stemp,X+5,Y-X-5);

If DM<>YHDM Then
Begin
//保存投诉信息

YHDM:=DM;
GZSJ:=0;
End;
End;

If Pos('GZ:=[',Stemp)>0 Then
Begin
//2 记录故障代码
X:=Pos('GZ:=[',Stemp);
Y:=Pos(']',Stemp);

GZLX:=Copy(Stemp,X+5,Y-X-5);
End;
End;
End;

FreeMem(SecondLine,80);
FreeMem(LastLine,80);
FreeMem(Stemp,80);

VrNum1.Value:=Memo1.Lines.Count;
If YHDM<>'' Then
Begin
Inc(GZSJ);
If GZSJ>30 Then
Begin
//保存故障投诉信息

YHDM:='';
GZSJ:=0;
End;
End;
end;

procedure TMainForm.TabSet1Click(Sender: TObject);
begin
Notebook1.PageIndex:=TabSet1.TabIndex;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If WHandle<>0 Then
SendMessage(WHandle,WM_Close,0,0);
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
IF SaveDialog1.Execute Then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

Initialization
WHandle:=0;
ListBoxHandle:=0;
YHDM:='';
GZSJ:=0;
GZLX:='';
end.

yinfudan 2000-08-29

打赏
举报

这个我会，但不能在Win2000中实现。
若你真有意给这么高分，我这星期六给你源代码。
yinfudan@yahoo.com

「已注销」 2000-08-29

打赏
举报

可以用SendMessage进行处理呀。消息LB_GETCOUNT取得总数目。
LB_GETITEMDATA
LB_GETITEMHEIGHT
等List Box Messages啊

得到其他窗口中 ListBox 内的内容

相关推荐