Hallo zusammen,
Ich bin neu hier und beschäftige mich seit ca 2 Monaten wieder intensiver mit Delphi.
Vor ca 2 Jahren hab ich schon mal ein wenig was damit gemacht (serielle Schnittstelle),
bin aber keineswegs ein Profi, meine Hauptbetätigung liegt in der SPS-Programmierung.
Aber zu meinem aktuellen Problem:
Ich möchte gerne aus meiner Hauptform(frmMain) ein weiteres Formular(frmDetail) aufrufen, dabei aber Parameter übergeben.
Dazu habe ich folgendes gemacht(in vereinfachter Form):
In der aufrufenden
unit:
Delphi-Quellcode:
//unit frmMain
.
.
.
procedure TNavigation.LookOutButton22Click(Sender: TObject);
var
KomponenteEdit:TKomponente_Detail;
//die unit frmDetail
begin
KomponenteEdit:=TKomponente_Detail.Create(self,'
neu','
');
//also eine leere Maske (self,'edit','4') wäre zum Editieren eines Datensatzes
KomponenteEdit.Visible:=false;
KomponenteEdit.ShowModal;
end;
In der aufgerufenen
unit:
Delphi-Quellcode:
type
TKomponente_Detail = class(TForm)
Edit1:TEdit;
ButtonSpeichern:TButton
procedure ButtonSpeichernClick(Sender: TObject);
procedure InsertKomp;
public
constructor create(aOwner : tComponent;mode:string;UID:string); virtual;
end;
var
Komponente_Detail:TKomponente_Detail;
implementation
...
constructor TKomponente_Detail.create(AOwner:TComponent,mode:string;UID:string);
begin
inherited create(AOwner);
end;
...
...
procedure TKomponente_Detail.ButtonSpeichernClick(Sender: TObject);
begin
showmessage(Komponente_Detail.Edit1.Text); //<----- hier knallts
end;
Die Programmierhilfe springt darauf an, der Compiler meckert auch nicht, aber
zur Laufzeit krieg ich eine
Access violation, wenn ich auf Buttonspeichern klicke..
Nun der Hintergrund ist, dass ich an einer kleinen Datenbankanwendung (Absolute Database) schreibe und in mein Hauptfenster wie eine Webseite aufgebaut habe.
Also links die Navigation, rechts der Inhalt.
Bei oben angeführtem Konstrukt geht es darum, eine Eingabemaske (modal) für einen Datensatz aufzurufen.
Je nach gedrücktem Button soll entweder eine leere Maske angezeigt werden, oder eine mit bereits gefüllten Werten aus der Datenbank (zum editieren).
Ich habe das mittlerweile mit 2 Globalen Variablen gelöst, finde das aber nicht sehr schön und vermute, dass das Mißlingen auf diesem Weg an meinen mangelnden OOP_Kenntnissen liegt.
Deswegen: Kann mir da wer auf die Sprünge helfen ?
Wäre für Hinweise sehr dankbar.
greetz
Ruachel
PS: Übrigens ich verwendet D7 pro.