title image


Smiley so müsste es
dann bei dir aussehen das Form1(Schnittstelle)





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus;



type

TSchnittstelle = class(TForm)

MainMenu1: TMainMenu;

Anzeige1: TMenuItem;

version1: TMenuItem;

procedure version1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;



var

Schnittstelle: TSchnittstelle;



implementation

uses unit2;

{$R *.dfm}

 

procedure TSchnittstelle.version1Click(Sender: TObject);

begin

Version.ShowModal;

end;

 

end.





wenns nicht so ist, dann machst du was falsch.



Uwe

Achte auf deine Gedanken - Sie sind der Anfang deiner Taten.   (Chinesisches Sprichwort )



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: