Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wiener,
19. Mai 2022
Hab den Fehler gefunden:
Durch ändern des Itemindex wird OnChange ausgelöst und dort hatte ich einen Aufruf einer Funktion - welcher die Zugriffsverletzung verursachte.
Mit einer if Abfrage hab ich es gelöst:
procedure TForm1.ComboBox_Pers_BetreuerChange(Sender: TObject);
begin
if ComboBox_Pers_Betreuer.ItemIndex <> -1 then
PersonFunctionen.Betreuerwechsel;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wiener,
18. Mai 2022
Hallo,
hab ein kleines Verständnisproblem bei folgenden code:
Form1.ComboBox_Pers_Betreuer.ItemIndex:= -1; // Feld zurücksetzen
DataModule1.FDQuery_Sonstiges.SQL.Clear;
DataModule1.FDQuery_Sonstiges.SQL.Text:= 'SELECT Max_Betreuer from PERSON WHERE Personennr = :PNR';
DataModule1.FDQuery_Sonstiges.ParamByName('PNR').AsString := ...