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??
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...
... da sind so falsche tags und so, und die tabelle ist rechts... Um zu deinem Problem zu kommen:
