Funktion in selbst erstellter Form

[DelphiUser1]

Großer Dank an Bummi :thumb:
Bei den ganzen Ends und Begins blickt auch kein Mensch mehr durch...

Zitat:

Was? Euch wurde gesagt, dass ihr die Inhalte der Form per Code erstellen müsst? Wer verlangt denn sowas absurdes?

Ganz deiner Meinung, aber unser Informatik Lehrer ist sowieso etwas sonderlich und was muss, das muss :-D
Damit wäre mein Problem also gelöst, danke nochmal an alle, die geholfen haben
Jetzt habe ich nur das Problem, das im Falle "Showmessage('Ungenügende Angaben')" eine Zugriffsverletzung auftritt. Hat dafür jemand eine Erklärung?

[Bummi]

Zitat:

Showmessage('Ungenügende Angaben')

mmhhhh, kann es sein daß uns da Informationen fehlen?

[Sir Rufo]

Also nur um das mal klarzustellen

Wenn du im Kontext von einer Form ( oder egel welcher Klasse) eine Zuweisung machst:

Delphi-Quellcode:

procedure TForm1.CreateFormo( Sender : TObject );
begin
  MyButton := Tbutton.Create( myform );
  with MyButkton do
  begin
    ...
    OnClick := Button1Click;
    ...
  end;
end;

dann wird dem Button in deiner

Delphi-Quellcode:

myform

die Methode von Form1 zugeordnet und nicht der Methode aus myform!
Wenn du das möchtest, dann doch bitte so

Delphi-Quellcode:

procedure TForm1.CreateFormo( Sender : TObject );
begin
  MyButton := Tbutton.Create( myform );
  with MyButkton do
  begin
    ...
    OnClick := MyForm.Button1Click;
    ...
  end;
end;

[nuclearping]

Zitat:

Zitat von DelphiUser1 (Beitrag 1185052)

Bei den ganzen Ends und Begins blickt auch kein Mensch mehr durch...

Deswegen ist auch eine ordentliche Einrückung so wichtig. Es gibt auch Tools wie Castalia, die Blöcke durch Linien visuell kennzeichnen.

Zitat:

Was? Euch wurde gesagt, dass ihr die Inhalte der Form per Code erstellen müsst? Wer verlangt denn sowas absurdes?

Zitat:

Zitat von DelphiUser1 (Beitrag 1185052)

Jetzt habe ich nur das Problem, das im Falle "Showmessage('Ungenügende Angaben')" eine Zugriffsverletzung auftritt. Hat dafür jemand eine Erklärung?

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

[DelphiUser1]

Zitat:

mmhhhh, kann es sein daß uns da Informationen fehlen?

ich denke nicht, alle Informationen sind doch im Quelltext enthalten..

Zitat:

Dann wird dem Button in deiner myform die Methode von Form1 zugeordnet und nicht der Methode aus myform!

Hmm okay danke für den Tipp, seltsamer Weise klappt es trotzdem :-D

Zitat:

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

Was genau meinst du mit ich führe kein Exit aus?
Der Quelltext mit der ShowMessage ist ja bereits hier zu sehen.

[Bummi]

Hilf einem alten blinden Mann, wo ist besagter Aufruf zu sehen?

[DelphiUser1]

Zitat:

Hilf einem alten blinden Mann, wo ist besagter Aufruf zu sehen?

Ich glaube ich bin der blinde Mann, es ist tatsächlich noch nicht hier. Seltsam, wie man sich irren kann :roll:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit3.Text='') or (Edit4.Text='') or (MaskEdit1.Text='') or (Edit6.Text='') or (ComboBox3.Text='') or not (Checkbox4.Checked) then
ShowMessage('Ungenügende Angaben')
else
myform:=TReg.CreateNew(Self);
with myform do
    begin
    visible := true;
    Caption := 'Registrieren(2/2)';
    Left := Form1.Left;
    Top := Form1.Top;
    ClientHeight := Form1.ClientHeight;
    ClientWidth := Form1.ClientWidth;
    Autoscroll:=false;
    Color:=clblack;

[DeddyH]

Kann es sein, dass da begin und end fehlen? Sonst wird ja auch bei ungenügenden Angaben auf myForm zugegriffen, ob das mal gutgeht.

[Bummi]

Mach mal ein Begin auf nach else und zugehörig wieder zu ...

[DelphiUser1]

tatsächlich, jetzt geht es.
Danke nochmal :wink: