http://i.imgur.com/XcCdr.png

Edit Em Forma De ***

[quote name='ϞLeandro' timestamp='1315010507' post='27543']
Adicione um Edit.
na Propiedade do edit (Object inspector) Proucure por Passwordchar ai vai esta assim :

PasswordChar = #0

Mude Para :

PasswordChar = *

Ai Quando Vs Digitar Algo Ao Invés de aparecer alguma letra aparecerá ***

OBS : Object inspector : é onde você muda o Text do Edit , Caption da label.
Isso È Mt Ùtil Para Sistemas De Login
:P
[/quote]
Jonathan Jonathan Jonathan

Seja o Primeiro ! »

Criando Letreiro Digital

{coloque um ttimer, um panel, um label dentro do panel. Set a propriedade interval do timer de 1000 para 1. isso fará com que o letreiro fique mais rápido.

Mude as cores e o caption do label como quiser. depois acrescente os códigos abaixo}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

        if label1.Left=panel1.Width then

        label1.Left:=-(label1.Width)

        else

        label1.Left:=label1.Left+1;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

        label1.Left:=-(label1.Width);

end;
Jonathan Jonathan Jonathan

Seja o Primeiro ! »

[CÓDIGO] Resource em Delphi

var
Arq: TResourceStream;
begin
begin
Arq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');
try
Arq.SaveToFile(Edit1.Text+'\Stage\fight_stg.KOM');
finally
Arq.Free;
end;
end;
ShowMessage('Ativado com sucesso.');
end;

o resto é com vocês.

by borland delphi. 
Jonathan Jonathan Jonathan

Seja o Primeiro ! »

TOCAR MUSICA WAVE

 Coloque no Butão:

playsound(pchar('NOME_ARQUIVO.wav'),0,snd_async);
Jonathan Jonathan Jonathan

Seja o Primeiro ! »

Simples! - Mensagem com várias linhas

//Basta colocar "#13" quando desejar mudar de linha!!
Exemplo.:

showmessage('Linha 1' + #13 + 'Linha 2' + #13 + 'Linha 3');

Pronto!!

Comentem essa dica!!!
Abraço.
Jonathan Jonathan Jonathan

Seja o Primeiro ! »

Assinar: Postagens
Tudo para design