MDI Anwendung Parameter übergeben

cyberax · Beiträge: 247 Win XP Pro Delphi 5 Enterprise

Hallo,

wie der Titel sagt arbeite ich an einer MDI Anwendung. Ich habe mehrere MDI-Childs.
In Child kann ich nach Kunden/Kundedaten suche. Nach erfolgreicher Suche, soll der jew. Kunde bearbeitet werden können. Dazu möchte ich ein neues/weiteres Child öffnen UND ein Parameter übergeben. Eigentl. wollte ich das Edit gleich füllen - sprich:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

 if MyQuery_kdsuche.RecordCount>0  then begin //ja ich habe einen Kunde gefunden
   if mainform.checkwindow('verwaltung_kunden') then  //das MDI ist noch nicht erstellt
    Tverwaltung_kunden.Create(self);                  //MDI erstellen  
    verwaltung_kunden.Edit1.Text:=mein_parameter;     //Parameter übergeben
 end;

Leider kommt bei der Ausführung immer ein Fehler. Auch wenn ich eine Variable verwende, kommt dieser Fehler.

Woran kann das liegen?

Mfg Daniel

elundril · Verfasst: Mo 24.11.08 14:28

probiers mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var Child: TVerwaltung_kunden;
begin
  if MyQuery_kdsuche.RecordCount>0  then begin //ja ich habe einen Kunde gefunden
    if mainform.checkwindow('verwaltung_kunden') then  //das MDI ist noch nicht erstellt
      Child := Tverwaltung_kunden.Create(self);                  //MDI erstellen 
      Application.ProcessMessages;
      child.Edit1.Text := mein_parameter;     //Parameter übergeben
    end;
end;

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Marc. · Verfasst: Mo 24.11.08 14:30

cyberax hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

 if MyQuery_kdsuche.RecordCount>0  then begin //ja ich habe einen Kunde gefunden
   if mainform.checkwindow('verwaltung_kunden') then  //das MDI ist noch nicht erstellt
    verwaltung_kunden :=  Tverwaltung_kunden.Create(self);                  //MDI erstellen  
    verwaltung_kunden.Edit1.Text:=mein_parameter;     //Parameter übergeben
 end;

Sollte es nicht so heißen? Welcher Fehler erscheint denn?

Edit: Deftinitiv zu langsam...

cyberax · Beiträge: 247 Win XP Pro Delphi 5 Enterprise

@Marc. : Danke, dass wars. Problem lag am Erstellen. Aber wieso kommt der Fehler nur dann, wenn ich ein Parameter übergeben möchte?
Fehler:"zugriffsverletzung bei Adresse 005E8C8B im Modul"... usw.

Was meintest du mit

Zitat:

Edit: Deftinitiv zu langsam...

?
Soll ich die Parameter anders übergeben?

Ansonsten vielen Dank euch für die Hilfe!!!

elundril · Verfasst: Mo 24.11.08 14:53

weil es den Befehl wie du ihn geschrieben hast ja gibt, deswegen meckert der compiler nicht vorher. das problem ist nur er erstellt das fenster nicht so wie du es brauchst deswegen kannst du nicht zugreifen, soweit ich weiß.

lg elundril

P.S.: warum nur danke marc? :bawling:

hab doch genau das gleiche geschrieben und war noch dazu viel schneller!

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

cyberax · Beiträge: 247 Win XP Pro Delphi 5 Enterprise

@all :Danke!
ok? Ja, also danke auch an elundril

elundril · Verfasst: Mo 24.11.08 15:09

elundril hat folgendes geschrieben :

P.S.: warum nur danke marc? :bawling:

hab doch genau das gleiche geschrieben und war noch dazu viel schneller!

war eh nur ein scherz.^^

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme