Funktion in selbst erstellter Form

[nuclearping]

Zitat von DelphiUser1:

Zitat:

Was? Lass mich raten: Du führst nach ShowMessage kein Exit aus?

Was genau meinst du mit ich führe kein Exit aus?

Wie schon gesagt, Einrückung ...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Warum klammerst du hier nur (Checkbox4.Checked) statt das "not" mit reinzunehmen?
  if (Edit3.Text='') or (Edit4.Text='') or (MaskEdit1.Text='') or (Edit6.Text='') or (ComboBox3.Text='') or (not Checkbox4.Checked) then
    begin
      ShowMessage('Ungenügende Angaben');
      Exit; // <-- da hätte zB ein Exit gefehlt, natürlich im begin ... end-Block. :D
    end;

  myform:=TReg.CreateNew(Self);
  with myform do
    begin
      // Einrückung! ... Und ggf auch Kategorisierung! ;)
      visible := true;
      Autoscroll:=false;

      Caption := 'Registrieren(2/2)';
      Color:=clblack;

      Left := Form1.Left;
      Top := Form1.Top;
      ClientHeight := Form1.ClientHeight;
      ClientWidth := Form1.ClientWidth;
      
      // ...
    end;

  // ...

end;