» »

Delphi problem- zapiranje programa

Delphi problem- zapiranje programa

c3R4R ::

Najprej lep pozdrav vsem programerjem...

Programiram v Delphi7 (začetnik- sm zelo zagnan) in sm naletel na prvo težavo.

Hotel sm sprogramirati program, ki se na klik na Button1 zapre. Sledil sm navodilom po knjigi od Petra Hribarja. Sliši se enostavno, samo ne vem kva naredim narobe... Vam bom opisal primer, kot sm delal:
1. Izberem nov projekt
2. Kliknem na File/Save all in shranim vse, projekt in knjižico
3. V komp. vrstici izberem gumb "OK" in za vstavim v obrazec
4. Dvakrat kliknem na gumb, da se mi pojavi pogovorno okno s privzetim dogodkom (to je Button1Click) in ta ukaz spremenim v Close.
5. Potem prevedem program v izvršno kodo z ukazom Project/Build.
6. Zaženem program z F9 in pokaže se mi okno, ki sem ga sprogramiral.... Kliknem na gumb Button1, da bi zaprl (kar je tudi cilj programiranja) in program se mi ne zapre....

To je to... Kje se zasral??

Aja.. V knjigi piše, da bi morala mapa s tem celotnim programom obsegati 10 datotek pri meni, pa jih je 8... Manjkata dve datoteki s podaljškom:
1. .~xx Ta končnica pomeni backup
2. .res Ta končnica pomeni "zunanji" viri

Tako torej... Program se mi ne zapre... Manjkata mi dve datoteki...

A je postopek pravilen? A je že kdo naletel na podobno težavo? Kako ste jo rešili?

Aspirinix ::

Daj skopiraj del kode kjer maš ta Button1Click.
Probaj namesto Close napisati "Exit;"

c3R4R ::

Evo kodo (predno napišem ukaz Close)

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

Koda po napisu ukaza Close

procedure TForm1.Close(Sender: TObject);
begin

end;

end.

BTW: Tud z Exit ne dela...

kopernik ::

sicer se z delphijem že več let ne ukvarjam, ampak a se zavedaš, da nisi napisal niti vrstice kode?

to ni nič, prazna procedura:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

poskusi vsaj kaj napisati, npr.:

procedure TForm1.Button1Click(Sender: TObject);
begin
application.terminate();
end;

lp

mile ::

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

c3R4R ::

@mile
Tenks... Zdej dela...

@jankoFer
Ups, blok sm pustu prazn:8)... Pomota....

Zdej je taka koda...

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

end.

Ta koda deluje:)..


Zakaj pa pri tej kodi Delphi7 javi napako??

procedure TForm1.Close(Sender: TObject);
begin
Close;
end;

end.

To kodo sm vidu v knjigi..... Zato mi pa ni delal... Čeprov sm blok pustu prazn:8) :8)...

mile ::

Procedure TForm1.Close(Sender: TObject);


ime funkcije spremen, "Close" je ze uporabljen

c3R4R ::

Aha, torej funkcije ne sme isti ime kot ukaz... Bom upošteval...

Če me bo še kej matral se oglasm...:)


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Delphi - izdelava igre

Oddelek: Programiranje
81165 (938) Nextor
»

[Delphi] Simpl vprašanja ko pasulj :)

Oddelek: Programiranje
91492 (1341) oldguy
»

Delphi - kako prepreči prečiti več zaporednih klikov gumba

Oddelek: Programiranje
51134 (1057) LoneWolf
»

RichEdit komponenta- tiskanje

Oddelek: Programiranje
6893 (804) mile
»

Delphi problem- MessageDlg

Oddelek: Programiranje
6924 (854) c3R4R

Več podobnih tem