Das Wichtige wurde ja schon von Luckie gesagt
Und nun der Rest.
(wäre mir das Anti24stundengepusche eher aufgefallen, dann hätt ich jetzt noch 23 Stunden gewartet, mit dem Antworten)
Zitat:
Delphi-Quellcode:
procedure TfrmValues.btnInsertClick(Sender: TObject);
begin
if ComboBox1.Text = 'Other' then
begin
edtResult.Text:= frmNew.edtOther.Text;
frmValues.Close;
frmNew.Show;
end
else begin
if ComboBox1.Text = 'Rent' then
edtResult.Text:= frmNew.edtRent.Text;
frmValues.Hide;
frmNew.Show;end;
end.
Du greifst in TfrmValues auf die globale frmValues zu ... sowas macht man nicht ... laß frmValues dort einfach weg.
Es fehlt ein Begin-End beim
if ComboBox1.Text = 'Rent' then
Oder ist nur deine Einrückung grauenhaft und das soll so sein?
Außerdem liest du dort Werte aus frmNew, schreibst sie in frmValues und schließt dann frmValues.
So kann ja nichts mehr angezeigt werden.
Meinst du es nicht andersrum? (frmValues > frmNew)