Ĺadny brzuch
Mam tak:
1 formę z quizem. Jeśli zaznaczę dobrą odpowiedź, i kliknę na button to w label (w tej pierwszej formie) pokaże mi się wynik. Chcę zrobić aby po naciśnięciu przycisku otworzyła się nowa forma i tam wynik. Jak "zapamiętać" rezultat, i kiedy naciskam na button, to wywołuje kod:
FormXXX.Show;
i w tej otwartej formie żeby był już label z wynikiem?
Form.Label.Caption:=costam;?
Siema! Też się dołączę do tematu: jak można zrobić aby aplikacja (DLL) była pod inną aplikacją?
FindWindow wystarczy?
[edit] jednak nie bo nie mogę ustalić left, top i height :kwasny:
Użytkownik JaCkObS edytował ten post 14 maj 2006, 09:27
Siema! Też się dołączę do tematu: jak można zrobić aby aplikacja (DLL) była pod inną aplikacją?
FindWindow wystarczy?
[edit] jednak nie bo nie mogę ustalić left, top i height :kwasny:
Nie czaje za bardzo. Chodzi ci o to, aby funkcja dll mogla modyfikowac to co jest na formie? Jesli tak to skopiuj z aplikacji klase TForm1 (to co jest w type) przekopiuj do zrodla dll, a w funkcji jako argument podaj zmienna typu TForm1 i operuj na niej :) Pewnie jest latwiejszy sposob (chociazby z findwindow) ale taki przyszedl mi do glowy :P
Chodzi mi o to żeby dll był pod aplikacją
Chodzi mi o coś takiego
Chodzi mi o to żeby dll był pod aplikacją
Chodzi mi o coś takiego
Czyli jak to zrobić? bo jakoś nie jarzę :(
Czyli jak to zrobić? bo jakoś nie jarzę :(
Wyświetlenie DLLa:
procedure ShowForm; //to jest w źródle progra (nie formy) var Form1 : TForm1; begin Form1 := TForm1.Create(Application); // stworz formularz Form1.ShowModal; // wyswietl formularz Form1.Free; // zwolnij zmienna end;
I DLL pokazuje czas z internetu i aktualną pogodę :P
Wyświetlenie DLLa:
procedure ShowForm; //to jest w źródle progra (nie formy) var  Form1 : TForm1; begin  Form1 := TForm1.Create(Application); // stworz formularz  Form1.ShowModal; // wyswietl formularz  Form1.Free; // zwolnij zmienna end;
I DLL pokazuje czas z internetu i aktualną pogodę :P
Znowu robię zamieszanie :faintthud:
library Przybornik; uses Forms, MainFrm in 'MainFrm.pas' {Form1}, MainFrm2 in 'MainFrm2.pas' {Form2}; {$R *.res} procedure ShowForm1; var Form1 : TForm1; begin Form1 := TForm1.Create(Application); Form1.ShowModal; Form1.Free; end; procedure ShowForm2; var Form2 : TForm2; begin Form2 := TForm2.Create(Application); Form2.ShowModal; Form2.Free; end; exports ShowForm1 index 1; exports ShowForm2 index 2; begin end.
Dodaj parametry:
... procedure ShowForm1(Left, Top: Integer); var  Form1 : TForm1; begin  Form1 := TForm1.Create(Application); Form1.Left := Left; Form1.Top := Top;  Form1.ShowModal;  Form1.Free; end; ... Tak samo dla ShowForm2.
A w kodzie programu (dopisz ew. nazwę formy głównej):
ShowForm1(Left, Top + Height);
Dzięki :D
i o to było tyle krzyku xD
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1 formę z quizem. Jeśli zaznaczę dobrą odpowiedź, i kliknę na button to w label (w tej pierwszej formie) pokaże mi się wynik. Chcę zrobić aby po naciśnięciu przycisku otworzyła się nowa forma i tam wynik. Jak "zapamiętać" rezultat, i kiedy naciskam na button, to wywołuje kod:
FormXXX.Show;
i w tej otwartej formie żeby był już label z wynikiem?
Form.Label.Caption:=costam;?
Siema! Też się dołączę do tematu: jak można zrobić aby aplikacja (DLL) była pod inną aplikacją?
FindWindow wystarczy?
[edit] jednak nie bo nie mogę ustalić left, top i height :kwasny:
Użytkownik JaCkObS edytował ten post 14 maj 2006, 09:27
Siema! Też się dołączę do tematu: jak można zrobić aby aplikacja (DLL) była pod inną aplikacją?
FindWindow wystarczy?
[edit] jednak nie bo nie mogę ustalić left, top i height :kwasny:
Nie czaje za bardzo. Chodzi ci o to, aby funkcja dll mogla modyfikowac to co jest na formie? Jesli tak to skopiuj z aplikacji klase TForm1 (to co jest w type) przekopiuj do zrodla dll, a w funkcji jako argument podaj zmienna typu TForm1 i operuj na niej :) Pewnie jest latwiejszy sposob (chociazby z findwindow) ale taki przyszedl mi do glowy :P
Chodzi mi o to żeby dll był pod aplikacją
Chodzi mi o coś takiego
Chodzi mi o to żeby dll był pod aplikacją
Chodzi mi o coś takiego
Czyli jak to zrobić? bo jakoś nie jarzę :(
Czyli jak to zrobić? bo jakoś nie jarzę :(
Wyświetlenie DLLa:
procedure ShowForm; //to jest w źródle progra (nie formy) var Form1 : TForm1; begin Form1 := TForm1.Create(Application); // stworz formularz Form1.ShowModal; // wyswietl formularz Form1.Free; // zwolnij zmienna end;
I DLL pokazuje czas z internetu i aktualną pogodę :P
Wyświetlenie DLLa:
procedure ShowForm; //to jest w źródle progra (nie formy) var  Form1 : TForm1; begin  Form1 := TForm1.Create(Application); // stworz formularz  Form1.ShowModal; // wyswietl formularz  Form1.Free; // zwolnij zmienna end;
I DLL pokazuje czas z internetu i aktualną pogodę :P
Znowu robię zamieszanie :faintthud:
library Przybornik; uses Forms, MainFrm in 'MainFrm.pas' {Form1}, MainFrm2 in 'MainFrm2.pas' {Form2}; {$R *.res} procedure ShowForm1; var Form1 : TForm1; begin Form1 := TForm1.Create(Application); Form1.ShowModal; Form1.Free; end; procedure ShowForm2; var Form2 : TForm2; begin Form2 := TForm2.Create(Application); Form2.ShowModal; Form2.Free; end; exports ShowForm1 index 1; exports ShowForm2 index 2; begin end.
Dodaj parametry:
... procedure ShowForm1(Left, Top: Integer); var  Form1 : TForm1; begin  Form1 := TForm1.Create(Application); Form1.Left := Left; Form1.Top := Top;  Form1.ShowModal;  Form1.Free; end; ... Tak samo dla ShowForm2.
A w kodzie programu (dopisz ew. nazwę formy głównej):
ShowForm1(Left, Top + Height);
Dzięki :D
i o to było tyle krzyku xD