Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Konstante in anderer Form mitverwenden??
Andi1982 - Do 05.06.03 18:30
Titel: Konstante in anderer Form mitverwenden??
Hallo, in meinem Programm gibt es zwei Forms, Form 1 und Form 2.
Wie/wo muss ich in Form ein eine konstante definieren dass ich sie auch in Form2 benutzen kann??
Habs so probiert, geht aber nicht:
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:
| type
TForm1 = class(TForm)
Panel1: TPanel;
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
ComboBox1: TComboBox;
Button2: TButton;
Button3: TButton;
PopupMenu1: TPopupMenu;
Abspielen1: TMenuItem;
BeiWinampeinreihen1: TMenuItem;
procedure Button1Click(Sender: TObject);
function GetRubrik: String;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure Einreihen1Click(Sender: TObject);
procedure Abspielen1Click(Sender: TObject);
private
public
const DBDatei = 'Lieder.db';
end; |
wie muss ich das richtig machen??
Tweafis - Do 05.06.03 18:34
arg, das thema sieht bei mir voll komisch aus :shock:... da sind so falsche tags und so, und die tabelle ist rechts... Um zu deinem Problem zu kommen:
Mach bei unit1 vor implementation und bei unit2 dann
unit1.constanzenname (glaub ich)
Andi1982 - Do 05.06.03 18:38
Das mit der falschen darstellung lag an mir, habs geändert.
Deine Lösung war richtig, vielen Dank!!!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!