Duvida em aplicação
Aew pessoal, preciso fazer o seguinte, qdo o usuario clicar em um botao no momento nao acontece nada... mas depois que ele fechar o programa e abrir de novo ai sim a função que está no botao ira ser executada. COMO ?
Rodrigo!
Rodrigo!
Ropesca
Curtidas 0
Respostas
Rômulo Barros
12/07/2003
unit Unit1;
interface
{************ Cuidado com a biblioteca Registry, que está na Seção Uses ******************}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,[color=red:233e4a76bb] Registry[/color:233e4a76bb], StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Teste : Tregistry;
implementation
{$R *.dfm}
Procedure Avisar;
Begin
ShowMessage(´Aviso´);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Teste := TRegistry.Create;
Teste.RootKey := HKEY_CURRENT_USER;
Teste.OpenKey(´Software\MeuPrograma´,True);
If(Not(Teste.ValueExists(´Clicou´)))Then
Begin
Teste.WriteString(´Clicou´,´Sim´);
Button1.Enabled := False; // Desbilite o seu botão....
Teste.CloseKey;
End
Else
Begin
Avisar;
button1.Enabled := False;
End;
end;
end.
interface
{************ Cuidado com a biblioteca Registry, que está na Seção Uses ******************}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,[color=red:233e4a76bb] Registry[/color:233e4a76bb], StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Teste : Tregistry;
implementation
{$R *.dfm}
Procedure Avisar;
Begin
ShowMessage(´Aviso´);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Teste := TRegistry.Create;
Teste.RootKey := HKEY_CURRENT_USER;
Teste.OpenKey(´Software\MeuPrograma´,True);
If(Not(Teste.ValueExists(´Clicou´)))Then
Begin
Teste.WriteString(´Clicou´,´Sim´);
Button1.Enabled := False; // Desbilite o seu botão....
Teste.CloseKey;
End
Else
Begin
Avisar;
button1.Enabled := False;
End;
end;
end.
GOSTEI 0