Co jest złego

[Master_H@ker]

coś mi nie gra w tym kodzie

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_POWEROFF,0);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_REBOOT,0);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_LOGOFF,0);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_SHUTDOWN,0);

end;



end.

edit :Błąd

[Error] Unit1.pas(39): Identifier redeclared: 'TForm1.Button1Click'

[Error] Unit1.pas(44): Identifier redeclared: 'TForm1.Button1Click'

[Error] Unit1.pas(49): Identifier redeclared: 'TForm1.Button1Click'

[Error] Unit1.pas(17): Unsatisfied forward or external declaration: 'TForm1.Button2Click'

[Error] Unit1.pas(18): Unsatisfied forward or external declaration: 'TForm1.Button3Click'

[Error] Unit1.pas(19): Unsatisfied forward or external declaration: 'TForm1.Button4Click'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

[tianhao]

nawet nie napisales jaki ci blad wywala

 

[Master_H@ker]

Sorki zapomniałem :-D

 

[rafal]

wszystkie funkcje masz podpiete pod jeden button ;-)

 

[Master_H@ker]

sorki za takie smieszne pytania ale jestem poczatkujacym

to jak zrobic zeby nie byl podpiety pod jeden buton ?

 

[bobikrk]

To dajesz tyle buttonów ile masz funkcji i 2x klikasz na kazdy i piszesz kod. Poniżej przykład:

procedure TForm1.Button1Click(Sender: TObject); 

begin 

ExitWindowsEx(EWX_POWEROFF,0); 

end; 



procedure TForm1.Button2Click(Sender: TObject); 

begin 

ExitWindowsEx(EWX_REBOOT,0); 

end; 



procedure TForm1.Button3Click(Sender: TObject); 

begin 

ExitWindowsEx(EWX_LOGOFF,0); 

end; 



procedure TForm1.Button4Click(Sender: TObject); 

begin 

ExitWindowsEx(EWX_SHUTDOWN,0); 

end;

Tak to ma wyglądać.

 

[rafal]

albo przepisz kod na zywca i podepnij dana procedure pod OnClick odpowiedniego buttona.

 

[Master_H@ker]

dzięki ++