estly

如题
感谢

另外要是易老大提供一下易速的穿透接口就更爽了

再次感谢

estly

再顶，请教这个问题

Super

复制内容到剪贴板

代码:

function TFindDialog.Execute(ParentWnd: HWND): Boolean;
var
Option: TFindOption;
begin
if FFindHandle <> 0 then
begin
BringWindowToTop(FFindHandle);
Result := True;
end else
begin
FFindReplace.Flags := FR_ENABLEHOOK;
FFindReplace.lpfnHook := FindReplaceDialogHook;
FRedirector := TRedirectorWindow.Create(nil);
with TRedirectorWindow(FRedirector) do
begin
FCommonDialog := Self;
EnumThreadWindows(GetCurrentThreadID, @GetTopWindow, LPARAM(@FFormHandle));
end;
FFindReplace.hWndOwner := FRedirector.Handle;
for Option := Low(Option) to High(Option) do
if Option in FOptions then
FFindReplace.Flags := FFindReplace.Flags or FindOptions[Option];
if Template <> nil then
begin
FFindReplace.Flags := FFindReplace.Flags or FR_ENABLETEMPLATE;
FFindReplace.lpTemplateName := Template;
end;
CreationControl := Self;
FFindHandle := FFindReplaceFunc(FFindReplace);
Result := FFindHandle <> 0;
end;
end;

以上是关键代码，穿透接口有尝提供。

estly

请问一下这个代码是搜索并定位的么？  怎么用啊，怎么里面没见一个listview类的东东？

estly

谢谢  我OK了， 就是不知老大那段代码是什么的，看不懂呢

我要的是这样的

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
listview1.SetFocus;
for i:=ListView1.Items.Count-1 downto 0 Do
if ListView1.Items.Caption = Edit1.Text then
begin
listview1.Items.Selected := True;
end;
end