Prozedur in einer Prozedur starten

[KesseK]

Hey

ich habe noch nicht so viel Ahnung von Delphi (3 Wochen), deswegen möcht ich gerne wissen wie ich eine Prozedur aus einer anderen heraus starten kann.

Delphi-Quellcode:

procedure TForm1.onkeypress(Sender: TObject; var Key: Char);
begin
  if not (key in[#8,#13,#49..#58]) then key := #0; //Eingabe auf Ziffern beschränken
  if key in [#13] then
    begin
                          // hier soll die Prozedur: procedure TForm1.StrButtonClick(Sender: TObject); gestartet werden
    end;
end;

Danke!

[Luckie]

So:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Click;
end;

Aber ich würde empfehlen den Code in eine separate Prozedur / Methode auszulagern und diese von beiden Methode aus aufrufen.

[Andidreas]

aloha in der dp

probiers mal so, so sollte es gehen wenn ich gerade keinen denkfehler gemacht hab

Delphi-Quellcode:

procedure TForm1.onkeypress(Sender: TObject; var Key: Char); 
begin 
  if not (key in[#8,#13,#49..#58]) then key := #0; //Eingabe auf Ziffern beschränken 
  if key in [#13] then 
    begin 
      StrButton.Click(Sender: TObject); 
    end; 
end;

edit:
mist luckie war mal wieder schneller und ich hatte nen punkt vergessen

[KesseK]

Zitat von Andidreas:

aloha in der dp

probiers mal so, so sollte es gehen wenn ich gerade keinen denkfehler gemacht hab

Delphi-Quellcode:

procedure TForm1.onkeypress(Sender: TObject; var Key: Char); 
begin 
  if not (key in[#8,#13,#49..#58]) then key := #0; //Eingabe auf Ziffern beschränken 
  if key in [#13] then 
    begin 
      StrButton.Click(Sender: TObject); 
    end; 
end;

edit:
mist luckie war mal wieder schneller und ich hatte nen punkt vergessen

Wenn ich das "StrButton.Click(Sender: TObject);" einsetz dann bekomme ich folgenden Fehler:
[Fehler]Projekt.pas(63):Zu viele Parameter

Was mach ich falsch?

[Luckie]

Zitat von KesseK:

Was mach ich falsch?

Du benutzt nicht meine Lösung.

Bei einem Prozeduraufruf werden die Werte der Paramter übergeben und nicht die Paramter mit Datentyp deklariert. Sollte man aber eigentlich sofort sehen - auch als Anfänger.

[KesseK]

Zitat von Luckie:

Bei einem Prozeduraufruf werden die Werte der Paramter übergeben und nicht die Paramter mit Datentyp deklariert. Sollte man aber eigentlich sofort sehen - auch als Anfänger.

Ah ich hab mal wieder alles übersehen, kommt von der Hektik. Danke Luckie, klappt alles

[mo_greene]

wie mach ich das, wenn ich die FormCreate-Prozedur aufrufen will? Ich möchte das genauso machen wie der Threadstarter es haben will!

[Die Muhkuh]

FormCreate(Self);

[mo_greene]

da bekomme ich leider die Fehlermeldung

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Ein deaktiviertes oder unsichtbares Fenster kann nicht den Fokus erhalten'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

[Martin K]

Steht doch da, woran es liegt:

Zitat:

'Ein deaktiviertes oder unsichtbares Fenster kann nicht den Fokus erhalten'.