![]() |
einfache Frage zur Variablendeklaration
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.
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. |
Re: einfache Frage zur Variablendeklaration
Mach die Prozedur test zu einer Methode deiner Form-Klasse:
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; |
Re: einfache Frage zur Variablendeklaration
Delphi-Quellcode:
Button1 ist ein Element des Forms (variablenname: form2), also musst Du es ueber die Formvariable ansprechen.
procedure test();
begin form2.button1.Caption:='test2'; end; |
DP-Maintenance
Dieses Thema wurde von "SirThornberry" von "Die Delphi-IDE" nach "Object-Pascal / Delphi-Language" verschoben.
|
Re: einfache Frage zur Variablendeklaration
Danke mashutu,
genau so gehts. Merci vielmals, Raena. Zitat:
|
Re: einfache Frage zur Variablendeklaration
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.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:53 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz