Ĺadny brzuch
tak jak w temacie:
Jak wyświetlić okno powitalne? Chodzi mi o to że form1 jest główną formą , a przy uruchamianiu programu form2, czyli forma 2 wyświetla się, a głównej formy jescze nie widać. Dopiero po zamknięciu formy 2, wyświetla się forma 2. Przy zdarzeniu onShow odpada, bo wyświetlone są dwie naraz, przu onCreate tez(chyba wiadomo).
Dalej jak zmknąc program, gdy użycie pamięci jest duże? Chodzi mi o to, że np jak włącza się gre, to program(działa w zasobniku) automatycznie się wyłącza.
Za szybkie odpowiedzi będe wdzięczny.
Napisz to w źródle programu :> (Project->View source)
Ale co napisać?
Ale co napisać?
wyswietlanie formy
Nie działa. Pojawia sie 'Cannot change visible in onShow or onVisible'. Taki komunikat pojawia się kedy okno powitalne powinno się zamknąc.
program Tapeciarz; uses  Forms,  Windows,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2},  Unit3 in 'Unit3.pas' {Form3},  Unit4 in 'Unit4.pas' {Form4}; {$R *.res} var es: integer; //zawiera info. o typie okna begin  es := GetWindowLong(Application.Handle, GWL_EXSTYLE);   //pobieranie typu okna  es := es or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;  // zmieniamy typa okna na TOOLWINDOW i usuwamy APPWINDOW  SetWindowLong(Application.Handle, GWL_EXSTYLE, es);  //Zmieniamy typ okna aplikacji  Application.Initialize;  Application.Title := 'Tapeciarz';  Application.CreateForm(TForm1, Form1);  Application.CreateForm(TForm2, Form2);  Application.CreateForm(TForm3, Form3);  Application.CreateForm(TForm4, Form4);  Application.Run;  Form4.Show; end.
procedure TForm1.FormCreate(Sender: TObject); begin     NotifyIconData.cbSize := SizeOf(NotifyIconData); //rozmiar struktury;     NotifyIconData.Wnd := Handle; //obsłuz moją aplikacje     NotifyIconData.uID := 0; //identyfikator ikony     NotifyIconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; //włącz określone pola     NotifyIconData.uCallbackMessage := WM_USER +1; //idetyfikatro komunikatu     NotifyIconData.hIcon := application.Icon.Handle; //pobierz ikone;     StrpCopy(NotifyIconData.SzTip, 'Tapeciarz v1.0.0.0');     Shell_NOTIFYICON(NIM_ADD, @NotifyIconData);     SciezkaZapisu := ExtractFilePath(Application.ExeName) + 'Data\Files.fli';     SciezkaZapisuPolozenia := ExtractFilePath(Application.ExeName) + 'Data\FilesM.fli';     Odczytaj;   //odczytaj pliki end;
Zdarzenie onShow Form1 jest puste
Użytkownik pat edytował ten post 26 maj 2006, 16:34
program Tapeciarz; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4}; {$R *.res} var es: integer; //zawiera info. o typie okna begin es := GetWindowLong(Application.Handle, GWL_EXSTYLE); //pobieranie typu okna es := es or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW; // zmieniamy typa okna na TOOLWINDOW i usuwamy APPWINDOW SetWindowLong(Application.Handle, GWL_EXSTYLE, es); //Zmieniamy typ okna aplikacji Application.Initialize; Application.Title := 'Tapeciarz'; Form4:= TForm4.Create(nil); Form4.Show; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); // Application.CreateForm(TForm4, Form4); Application.Run; Form4.Show; end.
Niestety, kod działa, ale pojawia mi się forma 1 i pod nią dopiero forma 4. Kiedyś osiągnełem taki efekt, ale niesetety wirus mi zniszczył projekt :( .
Niestety, kod działa, ale pojawia mi się forma 1 i pod nią dopiero forma 4. Kiedyś osiągnełem taki efekt, ale niesetety wirus mi zniszczył projekt :( .
to daj formstyle formy 4 na fsStayOnTop czy jakos tak ;p
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak wyświetlić okno powitalne? Chodzi mi o to że form1 jest główną formą , a przy uruchamianiu programu form2, czyli forma 2 wyświetla się, a głównej formy jescze nie widać. Dopiero po zamknięciu formy 2, wyświetla się forma 2. Przy zdarzeniu onShow odpada, bo wyświetlone są dwie naraz, przu onCreate tez(chyba wiadomo).
Dalej jak zmknąc program, gdy użycie pamięci jest duże? Chodzi mi o to, że np jak włącza się gre, to program(działa w zasobniku) automatycznie się wyłącza.
Za szybkie odpowiedzi będe wdzięczny.
Napisz to w źródle programu :> (Project->View source)
Ale co napisać?
Ale co napisać?
wyswietlanie formy
Nie działa. Pojawia sie 'Cannot change visible in onShow or onVisible'. Taki komunikat pojawia się kedy okno powitalne powinno się zamknąc.
program Tapeciarz; uses  Forms,  Windows,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2},  Unit3 in 'Unit3.pas' {Form3},  Unit4 in 'Unit4.pas' {Form4}; {$R *.res} var es: integer; //zawiera info. o typie okna begin  es := GetWindowLong(Application.Handle, GWL_EXSTYLE);   //pobieranie typu okna  es := es or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;  // zmieniamy typa okna na TOOLWINDOW i usuwamy APPWINDOW  SetWindowLong(Application.Handle, GWL_EXSTYLE, es);  //Zmieniamy typ okna aplikacji  Application.Initialize;  Application.Title := 'Tapeciarz';  Application.CreateForm(TForm1, Form1);  Application.CreateForm(TForm2, Form2);  Application.CreateForm(TForm3, Form3);  Application.CreateForm(TForm4, Form4);  Application.Run;  Form4.Show; end.
procedure TForm1.FormCreate(Sender: TObject); begin     NotifyIconData.cbSize := SizeOf(NotifyIconData); //rozmiar struktury;     NotifyIconData.Wnd := Handle; //obsłuz moją aplikacje     NotifyIconData.uID := 0; //identyfikator ikony     NotifyIconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; //włącz określone pola     NotifyIconData.uCallbackMessage := WM_USER +1; //idetyfikatro komunikatu     NotifyIconData.hIcon := application.Icon.Handle; //pobierz ikone;     StrpCopy(NotifyIconData.SzTip, 'Tapeciarz v1.0.0.0');     Shell_NOTIFYICON(NIM_ADD, @NotifyIconData);     SciezkaZapisu := ExtractFilePath(Application.ExeName) + 'Data\Files.fli';     SciezkaZapisuPolozenia := ExtractFilePath(Application.ExeName) + 'Data\FilesM.fli';     Odczytaj;   //odczytaj pliki end;
Zdarzenie onShow Form1 jest puste
Użytkownik pat edytował ten post 26 maj 2006, 16:34
program Tapeciarz; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4}; {$R *.res} var es: integer; //zawiera info. o typie okna begin es := GetWindowLong(Application.Handle, GWL_EXSTYLE); //pobieranie typu okna es := es or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW; // zmieniamy typa okna na TOOLWINDOW i usuwamy APPWINDOW SetWindowLong(Application.Handle, GWL_EXSTYLE, es); //Zmieniamy typ okna aplikacji Application.Initialize; Application.Title := 'Tapeciarz'; Form4:= TForm4.Create(nil); Form4.Show; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); // Application.CreateForm(TForm4, Form4); Application.Run; Form4.Show; end.
Niestety, kod działa, ale pojawia mi się forma 1 i pod nią dopiero forma 4. Kiedyś osiągnełem taki efekt, ale niesetety wirus mi zniszczył projekt :( .
Niestety, kod działa, ale pojawia mi się forma 1 i pod nią dopiero forma 4. Kiedyś osiągnełem taki efekt, ale niesetety wirus mi zniszczył projekt :( .
to daj formstyle formy 4 na fsStayOnTop czy jakos tak ;p