Busca na listbox

[rento 0]

Ae pessoal, eu folgando aqui de novo....

Olha... Estou fazendo um programa de códigos... Ate que pedi aquele componente pra deixar colorido... pois é.. são vários... ainda um saco pra usar...

 

Aqui tenho o codigo que quero para VBzaum

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDim strSearch As StringDim intPos As IntegerstrSearch = Me.Text1.TextWith List1If strSearch = "" Then	.ListIndex = 0Else   intPos = SendMessage(.hwnd, _		LB_FINDSTRING, _		-1, _		ByVal strSearch)   If intPos >= 0 Then		.ListIndex = intPos   End IfEnd If

Alguem ai tem ideia de como fica no delphi? sem mas selecionado os items tipo

digito no Edit 'ABC'

tem na lista 'abcdefg...'

entao ele seleciona o 'ab'

Pq esse aqui:

lbCmdList.ItemIndex:= lbCmdList.Items.IndexOf(txtCmdFind.Text)

Saiu completamente escroto, pq maioria das func. são desse assim:

bCmdList.Items.Add('doPlayerSendDefaultCancel(uid, ReturnValue)');  lbCmdList.Items.Add('getPlayerStorageValue(uid,valueid)');					lbCmdList.Items.Add('setPlayerStorageValue(uid,valueid, newvalue)');		  lbCmdList.Items.Add('getGlobalStorageValue(valueid)');						lbCmdList.Items.Add('setGlobalStorageValue(valueid, newvalue)'); lbCmdList.Items.Add('doPlayerAddOutfit(cid,looktype,addons)');				lbCmdList.Items.Add('doPlayerRemOutfit(cid,looktype,addons)');lbCmdList.Items.Add('doSetCreatureLight(cid, lightLevel, lightColor, time)');

Niguem que saiba essas helps nas virgulas ira ficar usando a list, ate pq seria mais facil digitar o comando e espaço, que to usando uma engenhoca pra quando digitar o comando addcionar esses helps, com o componente de auto edição

[bdexterholland 0]

Não sei nada de VB, mas esse trecho parece ser fácil adaptar:

Dim strSearch As StringDim intPos As IntegerstrSearch = Me.Text1.TextWith List1If strSearch = "" Then	.ListIndex = 0Else   intPos = SendMessage(.hwnd, _		LB_FINDSTRING, _		-1, _		ByVal strSearch)   If intPos >= 0 Then		.ListIndex = intPos   End IfEnd If

var  intPos : integer;  strSearch : String;begin  strSearch := Form1.edit1.text;with listbox1 do  if strSearch = '' then	itemindex := 0;  else	begin	  iniPos := SendMessage (.hwnd, _LB_FINDSTRING, -1, strSearch);	  if iniPos >= 0 then		itenindex := iniPos	end;end;