Spuštění více formulářů – Delphi – Fórum – Programujte.com

Zdravím!

Mám program - ten je na form1, ale rád bych do něj udělal něco jako login. K tomu by měla sloužit vyvolaná form2. Jak ji ale vyvoval? Create nefunguje...

Eventuelně jednoduchý návod jak to řešit. (Hlavní program a k němu login, tedy něco, co se zobrazí hned po stratu programu (a po stisknutí na tlačítko odhlásit), zablokuje všechny funkce na hlavním programu a až po přihlášení (ověřování uživatele ze souboru) ev. zaregistrování se podle přístupových práv zpřístupní příslušní sekce programu.

A ještě jeden problém. Potřeboval bych showmessage, ale s více řádky. Jak na to?

pokud mas ten form pripravenej tak by melo jit neco jako form2.show(); pokud me pamet nesali
+ form2 v uses klauzuli

doplním KIIVa:
To blokování bych ani nedělal přes disable prvků, přes podmínky na začátku procedur (nebo vyplé Events), může ti stačit že nevyvoláš ten hlavní Form2. Máš přihlašovací Form1 a ten hlavní teprve zobrazíš po korektním kódu. Jakkoliv jinak to budeš mít složitější.
+ +
showmessage('1.radek'+#13#10+'2.radek');

To o-lox : To Delphimania :

Tak blokování prvků jsem udělal přes visible form_main. Snad to je v pohodě. Jen ještě jeden malinký dotaz. Jaká vlastnost je "horní řádek"? (tj. nechci tam mít minimalizovat, maximalizovat a hlavně zavřít).

Tak další problém... Pokud obsloužít událost form1 oncreate a dám tam unit2.form2.show; , tak mi to hlásí chybu. Obsloužení tlačítla tímto textem funguje... Kde je problém?

v nastaveniach form si zmen borderstyle na bs none alebo na nieco ine co ti vyhovuje

To Delphimania : A není to přesně to co jsem já psal, že si máš ty formuláře prohodit. Protože jakkoliv jinak to budeš mít složitější, ať už přes Disable prvků nebo řešení Visible ihned po zobrazení Formu?

Já vím, zkoušel jsem to, ale nevím jak jako první spouštět form2 z unit2.

tusim ze nekde v nastaveni projektu je nastaveni ktere formy se maji defaultne zobrazit a ktere pripadne ne... aspon hadam :D

Pokud preferuješ opravdu tu jednoduchost tak si velmi snadno prohodíš v .dpr souboru (prostě Ten Program nad Unitama)
řádky
Application.CreateForm("Form1")
Application.CreateForm("Form2")
Tim se ti bude drát primárně druhý okno. První se zobrazí až po tý co v kódu Unit Form2 dáš Show pro Form1 jak psal KIIV. Kdybys měl nějaký problémy, můžeš alternativně načnout nový Projekt a do něj vhodit Form2 jako první a Uses pro Form1.

program taxi;

uses
Forms,
Unit1 in 'Unit1.pas' {Form_Main},
Unit2 in 'Unit2.pas' {LogIn: TFrame};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm_Main, Form_Main);
Application.Run;
end.

Jak to tedy máš vypadat po úpravě? (unit1 je program, unit2 je frame který se užívá pro statistické funkce a unit 3 je login)

Tak jsem na to přišel... Díky všem - velké díky - vděčím Vám za zápočet :)