Duvida na apostila

Delphi

22/06/2005

Eu estou fazendo um sistema através de uma apostila que tenho aki em casa. To em dúvida na pagina 91 e 92. Alguém poderia me explicar o que tenho que fazer no código?
{Para criar o procedimento TrataBotoes, digite sua declaração
(sem TFrmCadSetor) na cláusula private e utilize CTRL+SHIFT+C
Para todos os demais, selecione o objeto e utilize a object inspector}
Espero por resposta. Obrigado. A apostila é Delphi5_v2 e se encontra no site: www.clubedelphi.net/apostilas/apostilas.asp


Bandit23

Bandit23

Curtidas 0

Respostas

Sandra

Sandra

22/06/2005

bandit23,

Veja só o padrão quando na criação de uma nova unit:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

{Para criar o procedimento TrataBotoes, digite sua declaração (sem TFrmCadSetor) na cláusula private e utilize CTRL+SHIFT+C

Quando se fala em *criar procedimentos* (no caso, TrataBotoes) na cláusula private (poderia ser na public também), você deverá escrever assim:
type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure TrataBotoes;    // <= esta linha
  public
    { Public declarations }
  end;

Em seguida, com o cursor em qualquer ponto do texto digitado, se pressionar Ctrl+Shift+C, automaticamente será criado o cabeçaho para esse procedimento na seção implementation. Assim:
implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.TrataBotoes;
begin
  FazAlgumaCoisa;           // entre o begin e end, digite seus comandos
end;

end.


Entendeu? É facinho. :D


GOSTEI 0
POSTAR