1 Dica legal (DELPHI 7)
Link para download:
Clique aqui
-------------------------------------------------------------------------
PARA CONEXÕES LENTAS...
------------------------------------------------------------------------
Bem fácil e bem legal...
1 - adiciona :
1-button;
1-edit;
1-listview (win32);
2 - posicione assim:
3 - vamos mudar o caption, text:
caption do button 1 você coloca (Ok);
text do edit1 você coloca (' ');
4 - configurando a listview:
4.1 - vamos no object inspector;
4.2 - no object inspector:
mude a propriedade gridlines para (true) ;
mude a propriedade viewstyle para (VSReport);
----viu a transformação...
4.3 - vamos dar um clique duplo no listview... irá abrir uma caixa de dialogo.
Na caixa de dialogo você vai clicar akkkki:
Depois de clicar você terá criado propriedades... Vá nessas propiedades e mude o WIDTH para 200 ou mais...
5 - Adicione um (XPManifest - (Win32));
----------------------------------------------------------
Vamos programar:
É bem fácil : Clika no Button1 e adiciona isso...
Código:
var
a: TLisTitem;
begin
a:= ListView1.Items.Add;
a.Caption:= edit1.Text;
a: TLisTitem;
begin
a:= ListView1.Items.Add;
a.Caption:= edit1.Text;
Não esqueça de apagar o begin...
E depois é só executar...
1 Dica legal (DELPHI 7)
Reviewed by Dayvid
on
20:10
Rating:
Nenhum comentário