Como uma nova linguagem de programação do Windows, o Delphi
Muitos recursos excelentes estão integrados em um, por isso é cada vez mais popular entre programadores e programadores.
Favorecido por audiófilos. As dez técnicas a seguir cobrem uma ampla gama de áreas. Espero que sim.
O suficiente para beneficiar os entusiastas do Delphi.
1． Semelhante ao vb. os eventos funcionam em.
Você pode descobrir que não há equivalente a vb no Delphi. doev em
ents funcionam, então às vezes não conseguiremos fazer o Windows responder muito
eventos simultâneos. Na verdade, no objeto de aplicação Delphi
Inclui um método semelhante: PRocessMessage, você pode chamar
Usar aplicativo. ProcessMessage para completar como vb. mergulhou
tem a mesma função.
2． Chame o NetscapeNavigator no Delphi.
Com a popularidade da Internet, você já pensou em utilizá-la em seu programa Delphi?
Inicie o navegador Netscape e exiba a página inicial do endereço WWW especificado.
. O programa a seguir pode realizar esta função.
programaNetscape;
usaDDEMan;
procedimentoGo??toURL(sURL: string);
var
dde:TDDEClientConv;
começar
dde: ΚTDDEClientConv. Criar(nulo);
retirou-se
começar
//especifica a localização do netscape． exe
Aplicação de serviço: Κ′c: ιns32ιprogramιne
tscape． exe';
//ativa oNetscapeNavigator
SetLink('Netscape', 'WWW-Ativar');
RequestData(′0xFFFFFFFF′);
//gotothespecifiedURL
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,
');
FecharLink;
fim;
dde. Livre;
fim;
começar
GotoURL(′http://www.yahoo.com/′);
fim.
3. Saída inteira formatada.
Números maiores parecerão difíceis de ler na saída, no Delphi
Exibir números com marcas de seção é uma questão bastante simples, como segue: xx
xxx． legenda: ΚFormatFloat(′#′, 524667500).
4. Obtenha dicas em tempo de compilação.
No Delphi2.0, ao compilar, você pode pedir ao compilador para lhe dizer algumas
Dicas, como quais variáveis são declaradas, mas nunca usadas. nós sabemos
Sim, você pode controlar se deseja que o Delphi faça isso através das opções do menu.
Mas se for devido a alguma necessidade especial, você só precisará dele no segmento de código especificado.
O que devo fazer se receber um prompt como lphi? Consulte os procedimentos a seguir.
{$HINTON}
procedimentoTform1． Button1Click(Remetente: TObject
);
var
X: inteiro;
começar
fim;
{$HINTOFF}
5. Altere o papel de parede do Windows95.
Você pode alterar o papel de parede facilmente no Delphi, consulte o seguinte
programa.
procedimentoChangeIt;
var
Reg:TregIniFile;
começar
Reg：ΚTRegIniFile． Criar('ControlPanel')
;
Reg. WriteString('desktop', 'Papel de parede',
′c: ιpwin95ιfor??est． bmp');
Reg. WriteString('desktop', 'TileWallpaper
′,′1′);
Reg. Livre;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, nulo, SPIF-SENDWININICHANGE);
fim;
6． Obtenha a data em que o arquivo foi usado pela última vez.
Há um novo recurso no Win95, que é obter acesso a arquivos
última data. O famoso software CleanSweapforWin95 depende disso
Esta função é usada como base para julgar se um arquivo é acessado com frequência.
No Delphi, podemos realizar esta função através do programa a seguir.
functionGetFileLastaccessTime(sFileName:stri
ng):TDate??Hora;
var
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h: Alça;
começar
//obter informações do arquivo
h:ΚJanelas. FindFirstFile(PChar(sNomeArquivo
), ffd);
se（INVÁLIDO―HANDLE―VALUEΙΛh）então
começar
//estamos procurando apenas um arquivo,socloSEOur″f
ind″
Windows. EncontrarFechar(h);
//converte oFILETIME para localFILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,lft);
//converteFILETIMEparaDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Oi
,LongRec(dft). Lo);
//finalmente,convert DOStimetoTDateTimeforusein
Funções nativas de data/hora do Delphi
Resultado: ΚFileDateToDateTime(dft);
fim;
fim;
GetFileLastAccessTime() usará o TdateTi do Delphi
me formato retorna a data do último acesso do arquivo que você especificou.
7. Etiquetas coloridas.
Não estamos mais satisfeitos com as tags simples fornecidas pelo Delphi.
Existem diferentes fontes e cores diferentes nos rótulos para nos enriquecer
capacidade de desempenho. A resposta é sim, e não há necessidade de controle fornecido por terceiros
software, só precisamos usar inteligentemente o TRichEdit fornecido pelo próprio Delphi
É isso. Primeiro remova a borda do controle TRichEdit: RichEd??it1
． BorderStyle: ΚbsNone também define o atributo somente leitura como true: Rich;
Ed??it1. ReadOnly: ΚTrue então, você usa write ou algo semelhante;
Depois que o software cria o texto no formato RichText, você pode exibi-lo por meio da seguinte instrução
É mostrado:
RicoEditar1. Texto Simples:ΚFalso;
RicoEditar1. Linhas． LoadFromFile(′c: ιtest.r
t');
8. Como evitar que o Win95 exiba erros críticos.
Não importa quantas vezes você depure seu programa, depois que ele for entregue ao usuário, sempre haverá
Podem ocorrer erros inesperados. Como evitar que o Win95 exiba branco.
E as janelas que informam aos usuários que ocorreu um erro embaraçoso e inesperado? pudermos
Faça isso:
var
wOldError??Modo: Palavra;
começar
//tellwin??dowstoignorecriticalerrorsandsave
cur??renterrormode
wOldError??Modo: ΚSetEr??rorMode (SEM-FAILCR
ITI??CALERROS);
tentar
//códigoquepodegerarerrocríticogoesher
e. ． ．
finalmente
//volta para o modo de erro anterior
SetErrorMode(wOldErrorMode);
fim;
fim;
Use SetErrorMode() principalmente para completar esta função.
9. Qual objeto acabou de ser clicado com o mouse.
No Win95, o botão direito do mouse desempenha um papel importante, mas
Por razões históricas, o uso do clique com o botão direito ainda é difícil mesmo no Delphi.
Não sendo eficaz o suficiente, o programa a seguir pode lhe dizer como saber quando você apenas clicou com o botão direito
nome do objeto. Primeiro crie um popmenu e então o código a seguir pode
Para informar o nome do objeto, basta clicar com o botão direito: Popup??Menu1. PopupCom
componente． Nome da classe.
10. Verifique se o CD-ROM ou outros discos foram alterados.
A maneira mais simples de verificar se um CD-ROM ou disco foi alterado
é verificar o número do volume. Você pode simplesmente usar a seguinte função para retornar
Retorne o número de série do volume do disco GetDiskVolSerialID ('E'),
O código da função é o seguinte:
funçãoGetDiskVolSerialID(cDriveName: char)
:DPalavra;
var
dwTemp1, dwTemp2: DWord;
começar
GetVolumeInformation(PChar(cDriveName+′:
ι'),
Nada,
0,
ΝResultado,
dwTemp2,
dwTemp2,
Nada,
0);
fim;