como fazer com que um botao no form execute uma fun�ao

Question

Pessoal e o seguinte, estou iniciando no mundo delphi , e estou tentando fazer com que um botao no form execute uma fun�ao, como fa�o para funcionar.por favor me de uma mao. obrigada....

Flyskin · Answer

d� um duplo clique que vai abrir no code editor o evento onclick do bot�o, digite o c�digo desejado e pronto, pode compilar....

Delphin · Answer

a fun�ao e essa aqui,e o codigo que segue como teria de ser

function NumeroSerie(Unidade:PChar):String;
{Retorna o N�mero serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,8);
except
result := � �;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
codigo aqui
end;

Flyskin · Answer

Digamos ent�o que voc� quer mostrar o n�mero de s�rie num label no form por exemplo:

function NumeroSerie(Unidade:PChar):String;
{Retorna o N�mero serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,;
except
result := � �;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label.caption := NumeroSerie(�C:�);
end;

Delphin · Answer

Legal pesssoal, muito obrigada pela ajuda.se pudessem me ajudar com algum link para este tipo de estudo lhe fico muito grato.Mas de igual forma ,obrigadao,valeu mesmo. :wink:...

Flyskin · Answer

no site da clubedelphi tem bastante material bom e procura por apostilas delphi no google que vai encontrar bastante material.falow...

F�rum como fazer com que um botao no form execute uma fun�ao #349486