Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Segemtation fault (11)

  Alt 8. Jul 2019, 12:00
Halo,
die Frage ist ja, warum kommt das nur bei der Mobile-App.

Für solche ungewollten Events habe ich mir immer ein paar Hilfsroutinen geschrieben, sz.B.

Delphi-Quellcode:
procedure Edit_SetText(editField: TEdit; const text: String);
var
  oldEvent: TNotifyEvent;
begin
  oldEvent := editField.OnChange;
  try
    editField.OnChange := nil;
    editField.Text := text;
  finally
    editField.OnChange := oldEvent;
  end;
end {Edit_SetText};
Heiko
  Mit Zitat antworten Zitat