Procedure ansprechen

Kaspar · Beiträge: 42

Hallo zusammen

Eine kleine Frage, ist es möglich von einem Frame aus ein selbst erstellte Procedure aufzurufen, welche sich im Hauptformular befindet?
Also ich habe ein Form1 mit nem Frame1 in dem Form ist zb folgender code:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TEST();
begin
  Showmessage('tessssst');
end;

Wie kann ich diese nun vom Frame1 aus aufrufen?

Gruss

Kaspar

Moderiert von Gausi: Beitragsformatierung überarbeitet.

Marco D. · Verfasst: Mo 30.01.06 21:16

Andere Frage: Warum schreibst du hinter procedure Test zwei Klammern?

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Kaspar · Beiträge: 42

Na wegen der Parameter, aber da ich keine übergeben will sind sie halt leer.
Wenn ich die weglasse, kommt n fehler.

Marco D. · Verfasst: Mo 30.01.06 21:47

Kaspar hat folgendes geschrieben:

Na wegen der Parameter, aber da ich keine übergeben will sind sie halt leer.
Wenn ich die weglasse, kommt n fehler.

Glaub ich dir beim besten Willen nicht :wink:

*ausprobier*

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TEST;
begin
  Showmessage('tessssst');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Test;

end;

end.

Bei mir meckert er net rum...

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Kaspar · Beiträge: 42

Okay, danke für den Tipp, doch leider hilft mir das nicht weiter..
Weiss niemand wie man das machen kann?

hibbert · Verfasst: Mo 30.01.06 23:51

probier es doch mit einer "globalen" procedure:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 private
    { Private-Deklarationen }
  public
procedure test;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TEST;
begin
  Showmessage('tessssst');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Test;

end;

damit kannst du die procedur sicher aus deinem frame aufrufen.

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Kaspar · Beiträge: 42

Hallo,

Vielen Dank! Hat super funktioniert.
Danke!

Gruss Kaspar

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme