A kérdésre adott válasz szám 53750
Streams (thread) szálak |
Üdvözlünk!
Mi magunk nem helyi, segít, mint doboz, jó emberek.
Ha rákattint a menüpont által létrehozott CreateThread funkciója a kereskedelem, az eljárás indult meg, termelő egyes számítások és bemutatja egy ablak, egy állapotjelző megjelenik az aktuális folyamatot.
eljárás TMainForm.Action8Execute (Sender: TObject);
var
x: Cardinal;
pr: Pointer;
kezdődik
PR: = @ TMainForm.anythread;
CreateThread (nil, 0, PR, nulla, 0, x);
végén;
eljárás TMainForm.anythread;
var
i: integer;
száma: integer;
kezdődik
FormProgress.Show;
száma: = 10000;
FormProgress.ProgressBar1.Max: = count;
i: = 0 számolni csinálni
kezdődik
FormProgress.ProgressBar1.StepIt;
végén;
FormProgress.Close;
végén;
ami egy ablak, egy állapotjelző sáv történik a színpadon, hogy az alkalmazás futtatásához.
kezdődik
Application.Initialize;
Application.CreateForm (Megadott, MainForm);
Application.CreateForm (TFormProgress, FormProgress);
Application.Run;
végén.
A probléma a következő:
amikor bezárja a fő formája az alkalmazás hiba lép fel
Kivétel EOSError modulban _____. Exe a ______
Rendszerhiba. Kód: 1400.
Érvénytelen kilincs.
Ha ugyanaz a dolog közvetlenül a menüből (menet nélkül) - az ilyen hiba nem fordul elő. Ie Megnyitása után, és az ablak bezárása az ablak megváltozik a menet fogantyút. Hogyan kell menteni, mielőtt hívja a menet, majd a megfelelő engedje?
Követ akármi válasz erre a kérdésre via RSS