Moin, moin
Ich hadere gerade mit einem Umstand und komme nicht weiter, daher nun meine Frage hier.
In meiner Applikation existiert ein Form, welches unter anderem ein DBGrid enthält. Desweiteren gibt es eine Funktion, welche einen neuen Record anhängt (Append). Alles funktioniert perfekt, solange diese Funktion (APPEND) mittels einem im Form befindlichen Button aufgerufen wird.
Wird selbige Funktion jedoch über das Menüsystem oder den damit verbundenen Shorcut aufgerufen, gibt es
beim SetFocus eine Access Violation. Die Funktion die aufgerufen wird ist beides mal def. die unten abgebildete. Mir fehlt jetzt der Ansatz, wie ich der Violation auf die Spur kommen kann. Kann mir jemand einen Ansatz geben?
Source:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| // -----------------------------------------------------------------------------
// This function is called when user clicks on "Neuer Kontakt" button
procedure TKontaktForm.btn_kontaktneuClick(Sender: TObject);
begin
if not (DM1.Q_Kontakte.Active) then DM1.Q_Kontakte.Open;
DM1.Q_Kontakte.Append;
PC_Kontakt.ActivePage := TS_Allg;
DBEdit_Anrede.SetFocus;
PresetFields;
end; |
