witam
spodziewam się że był już taki post na forum, ale nie udało mi się nic znaleźć ( wyszukiwarka nie udostępnia zbyt wielu opcji :-( )
chcę, aby po wciśnięciu przycisku NEW program się resetował - kasowanie wszystkich captionów w labelach troche by zajęło miejsca...
jak to można zrobić ?
z góry dziękuję...
Argis
0
0
Może tak (kasowanie wszystkich captionów w labelach):
var
i:integer;
begin
for i:=0 to Form.ComponentCount-1 do
begin
if Form.Components[i] is TLabel then (Form.Components[i] as TLabel).Caption:='';
end;
end;
0
Może tak do MODUŁU
dodajesz
uses
Shellapi;
Potem w buttonie
wstawiasz
Application.terminate;
ShellExecute(Handle, 'open', 'NAZWA PROGRAMU np Project1.exe',nil,nil, SW_SHOWNORMAL);
I powinno zadziałąć [browar]
0
co do tego wyzej o jedno, no tak fajnie aplikacja sie zamyka ty ty ją ta sama aplikacja wlaczasz lol, moze zadziala :-)
dobra
raczej ja bym te funkcje odwrocikl
pierw shellexec, a potem terminate
0
winexec(pchar(paramstr(0)),0);
close; //albo app terminate ;]
0
najbardziej eleganckim sposobem (niezauwazalnym) jest..
robisz plik BAT i go zapisujesz gdzies w TEMP..w nim masz procedurke odpalajaca program...podczas zamykania (resetowania) odpalasz BATa ktory odpala z powrotem program..dodac mozna w OnCreate sprawdzanie czy BAT jest i jezeli jest to kasowanie jego...