HI,
Neues Problem:
Ich will einen Frame in Unit2 des gleichen Projekts aus Unit1 heraus sichtbar machen mit der Methode Visible. Hier der Quellcode:
Unit1:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Datei1: TMenuItem;
Speichern1: TMenuItem;
Beenden1: TMenuItem;
Tische1: TMenuItem;
NeuerTisch1: TMenuItem;
N1: TMenuItem;
NchsterTisch1: TMenuItem;
VorherigerTisch1: TMenuItem;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
Button1: TButton;
procedure Endall(Sender: TObject);
procedure Zeige11(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Endall(Sender: TObject);
begin
Form1.Release
end; WICHTIGER TEIL
procedure TForm1.Zeige11(Sender: TObject);
begin
TFrame21.Visible:=True;
end;
end.
Unit2:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TFrame21 = class(TFrame)
Shape1: TShape;
Button1: TButton;
Button2: TButton;
Button3: TButton;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
{$R *.DFM}
end.
Fehlermeldung Lautet:
[Fehler] Unit1.pas(47): Methodenbezeichner erwartet
Courser steht: TFrame21.Visible|:=True;
|