Hallo zusammen,

ich hab ne einfach Frage, komme selber nicht dahinter:
was muss ich tun um auf die Variable button1 auch von der
procedure test aus zugreifen zu können?

Danke für den Tipp, Raena.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure test();
begin

button1.Caption:='test2';

end;


procedure TForm2.Button1Click(Sender: TObject);
begin
button1.Caption:='test1';
end;

end.

Mach die Prozedur test zu einer Methode deiner Form-Klasse:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations } 
    procedure Test;
  public
    { Public declarations } 
  end;


// ...;

procedure Form2.Test;
begin

end;

markieren

Delphi-Quellcode:

procedure test();
begin

  form2.button1.Caption:='test2';

end;

Button1 ist ein Element des Forms (variablenname: form2), also musst Du es ueber die Formvariable ansprechen.

Danke mashutu,

genau so gehts.

Merci vielmals, Raena.

Zitat von mashutu:

markieren

Delphi-Quellcode:

procedure test();
begin

  form2.button1.Caption:='test2';

end;

Button1 ist ein Element des Forms (variablenname: form2), also musst Du es ueber die Formvariable ansprechen.

die Variante von Luckie ist jedoch vorzuziehen in deinem Fall. Wenn du mit TForm etc. arbeitest hast du dich für objektorienterte Programmierung entschieden und da macht es keinen Sinn plötzlich mit globalen Variablen wie Form2 zu arbeiten und mit globalen Funktionen die eigentlich Funktionell zur Klasse gehören.