Autor |
Mensagem |
Tópico: Qual o melhor modo de liberar form da memoria |
gadeji
Respostas: 12
Exibições: 5449
|
Fórum: Delphi Enviada: Dom Jan 11, 2015 1:11 am Assunto: Qual o melhor modo de liberar form da memoria |
O melhor é usando o FreeAndNil...
Mas se não quis pode colocar no onClose:
Action := caFree;
frm := nil; |
Tópico: Abrir arquivo com 2 clicks em Delphi |
gadeji
Respostas: 2
Exibições: 1281
|
Fórum: Delphi Enviada: Dom Jan 11, 2015 1:09 am Assunto: Abrir arquivo com 2 clicks em Delphi |
Provavelmente você tem uma lista de reprodução (se não tiver faça uma)...
No lugar onde vc coloca pra pegar o parametro coloque o seguinte ao invez do ParamStr(1)...
ListaDeReproducao.Ite ... |
Tópico: Problemas com tray icon |
gadeji
Respostas: 3
Exibições: 2999
|
Fórum: Delphi Enviada: Dom Jan 11, 2015 1:05 am Assunto: Problemas com tray icon |
Seguinte.. eu não sei exatamente no que tu tá errando.. vou passar aqui os passos q vc precisa fazer pra dar certo o que vc quer..
1. Coloque o componente TTrayIcon no seu form...
2. no onDoub ... |
Tópico: Socket pelo SocketHandle (TServerSocket) |
gadeji
Respostas: 7
Exibições: 2485
|
Fórum: Delphi Enviada: Sex Ago 29, 2014 4:39 pm Assunto: Socket pelo SocketHandle (TServerSocket) |
Usei esse procedimento aqui pra atualizar as IDs cada vez que alguém conecta ou desconecta..
procedure TfrmPrincipal.AtualizarIDs;
var
I: Integer;
hTmp: Integer;
begin
SetLeng ... |
Tópico: Socket pelo SocketHandle (TServerSocket) |
gadeji
Respostas: 7
Exibições: 2485
|
Fórum: Delphi Enviada: Sex Ago 29, 2014 4:32 pm Assunto: Socket pelo SocketHandle (TServerSocket) |
Pelo jeito vou ter que criar um Array pra estocar o número da conexão e usar o SocketHandle como Index dele :/ Não queria mas fazer o que né?
Exatamente, dai cê vai ter que salvar algo referen ... |
Tópico: Socket pelo SocketHandle (TServerSocket) |
gadeji
Respostas: 7
Exibições: 2485
|
Fórum: Delphi Enviada: Qua Ago 27, 2014 11:12 pm Assunto: Socket pelo SocketHandle (TServerSocket) |
Cara.. O Connections é um array ZI com todas as conexões.. O SocketHandle é o identificador da conexão.. O SocketHandle da Primeira conexão pode ser 115.. Entende? O problema é justamente esse.. ... |
Tópico: Socket pelo SocketHandle (TServerSocket) |
gadeji
Respostas: 7
Exibições: 2485
|
Fórum: Delphi Enviada: Qua Ago 27, 2014 2:29 pm Assunto: Socket pelo SocketHandle (TServerSocket) |
Primeiramente obrigador por responder o post. Mas acredito que você não entendeu o que eu quis dizer.. Eu não quero tratar com alguém que me mandou algo.. Eu quero enviar um texto para um cliente ... |
Tópico: Socket pelo SocketHandle (TServerSocket) |
gadeji
Respostas: 7
Exibições: 2485
|
Fórum: Delphi Enviada: Ter Ago 26, 2014 9:29 pm Assunto: Socket pelo SocketHandle (TServerSocket) |
Olá, gostaria de saber se algum de vocês sabe se existe alguma função para pegar um cliente de um TServerSocket através do SocketHandle. Mas não gostaria de usar um FOR pra isso porque tenho mui ... |
Tópico: Não repetir alguns valores no stringlist? {Resolvido} |
gadeji
Respostas: 4
Exibições: 1827
|
Fórum: Delphi Enviada: Qua Fev 05, 2014 2:55 am Assunto: Não repetir alguns valores no stringlist? {Resolvido} |
tente colocar o comando para pôr aquela parte que não quer que repita em um nível mais baixo.. por exemplo.. se está algo tipo assim:
begin
for I := 0 to registros_max do
begin
escre ... |
Tópico: Como enviar mensagem para o usuário neste caso? |
gadeji
Respostas: 11
Exibições: 2838
|
Fórum: Delphi Enviada: Sex Jan 31, 2014 10:52 pm Assunto: Como enviar mensagem para o usuário neste caso? |
Amigo, se você não quer fazer dessa forma então vai ter que desativar os outros componentes como o amigo ai disse e definir o CanClose do form como false no onCloseQuery até que marque os CheckBox ... |
Tópico: Como enviar mensagem para o usuário neste caso? |
gadeji
Respostas: 11
Exibições: 2838
|
Fórum: Delphi Enviada: Sex Jan 31, 2014 8:40 pm Assunto: Como enviar mensagem para o usuário neste caso? |
Queria te pedir mil perdões, foi um erro tosco meu pensar que o único evento seria clicar...
Apenas substitua a sua procedure por essa:
procedure TFrmCadTurDisc.VerificaChecks(var Msg: ... |
Tópico: Idioma de exibição do Sistema |
gadeji
Respostas: 1
Exibições: 782
|
Fórum: Delphi Enviada: Qui Jan 30, 2014 10:39 pm Assunto: Re: Idioma de exibição do Sistema |
Usa o TRegistry pra pegar o valor de:
HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\Authentication\LogonUI\SessionData\1..
o valor UserLanguageID que é um DWORD ![Very Happy](images/smiles/icon_biggrin.gif) |
Tópico: Como enviar mensagem para o usuário neste caso? |
gadeji
Respostas: 11
Exibições: 2838
|
Fórum: Delphi Enviada: Qui Jan 30, 2014 10:33 pm Assunto: Como enviar mensagem para o usuário neste caso? |
Um detalhe.. não esqueça de declarar lá em cima a procedure também... deve ficar igual aqui: http://prntscr.com/2o3wbq |
Tópico: Como enviar mensagem para o usuário neste caso? |
gadeji
Respostas: 11
Exibições: 2838
|
Fórum: Delphi Enviada: Qui Jan 30, 2014 10:27 pm Assunto: Re: Como enviar mensagem para o usuário neste caso? |
Adiciona uma procedure assim:
procedure TForm1.VerificaChecks(var Msg: TMsg; var Handled: Boolean);
begin
if msg.message = 514 then
if Dbcheckbox1.checked=true then
if (Dbcheckbox2.chec ... |
Tópico: Redimensionamento de Tela |
gadeji
Respostas: 1
Exibições: 858
|
Fórum: Delphi Enviada: Qui Jan 30, 2014 9:00 pm Assunto: Redimensionamento de Tela |
Aqui está amigo...
defina essa variavel global
RectOriginal: TRect;
Coloque isso no onCreate do Form..
procedure TForm1.FormCreate(Sender: TObject);
var
Rect: TRect;
begin
Syste ... |
|