Dziękuję za odpowiedzi. Formę główną mam ustawioną na fsNormal Poniżej kod którym tworzę drugą formę:
//To jest na formie głównej
procedure TfOrder.ect_button_shopClick(Sender: TObject);
begin
fRaflo.MI_Magazyn.OnClick(fRaflo.MI_Magazyn);
TfCart.Create(application, False);
end;
//Forma druga
constructor TfCart.Create(AOwner: TComponent; OnlyBooking: Boolean);
begin
inherited Create(AOwner);
fCaption := 'Koszyk';
if not OnlyBooking then
Exit;
{ Formularz tylko rezerwacji }
e_Sell.Visible := False;
e_Booking.Left := e_Sell.Left;
e_Booking.Tag := BookingAndClose;
e_Booking.Caption := 'Rezerwuj';
{ Ukrywanie zbędnych elementów }
sLabel4.Visible := False;
sLabel5.Visible := False;
e_TypePay.Visible := False;
e_TypeBill.Visible := False;
Self.Height := 327;
e_More.Enabled := False;
{ Zamiana tekstu caption }
fCaption := 'Rezerwacja';
end;
Forma druga ma ustawioną właściwość:
Visible = True
FormStyle = fsNormal
Ciekawostka: Forma 2 jest zawsze na wierzchu tak jakby miała fsStayOnTop ale nie ma :). Pisałem już o tym na forum i do dziś problem nie został rozwiązany.
Poniekąd dlatego używam raise do wyświetlenie błędów. Oraz dlatego że jedną linią kodu mam załatwione 2 rzeczy. Informacja o błędzie i przerwanie wykonywania danej procedury bez konieczności używania
IF *** Then Exit