Zitat von
DeddyH:
Zeig doch mal den interface-Teil Deiner
Unit.
hier:
type
{ Tmenueauswahlform }
Tmenueauswahlform = class(TForm)
beendenButton: TButton;
Label1: TLabel;
dbnameLabel: TLabel;
Label2: TLabel;
Panel1: TPanel;
procedure beendenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
public
{ public declarations }
end;
var
menueauswahlform: Tmenueauswahlform;
newbox: TmyButton;
implementation