CodeTyphon 7.10. (Windows 10)
Als ik onderstaande procedure laat uitvoeren dan krijg ik error.
Opmaak van procedure gebeurde door een externe programmeur, die huidig niet meer beschikbaar is.
Berichten, Errors: 1
Error: Project DBdata64T raised exception class 'External: SIGSEGV'.
In file 'umain.pas' at line 373:
TDBGrid(Sender).Hint := Hints[acol];
Code:
procedure TFMAIN.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const
Hints: array[0..9] of string =
('','Volgorde op NAAM','Volgorde op ADRES','Voilgorde op PostCode',
'Vogorde op HUIS Tel.','Volgorde op GSM Tel.','Volgorde op E-Mail',
'Volgorde op Geboortedatum','Volgorde op INFO','Volgorde op Alfabet NAAM');
arow : integer = 0;
ocol: integer =-1; // old column
acol: integer = 0; // actual column
begin
TDBGrid(Sender).MouseToCell(X, Y, acol, arow);
if (ocol <> acol) and (acol <= High(Hints)) then
begin
TDBGrid(Sender).Hint := Hints[acol];
Application.ActivateHint(Mouse.CursorPos);
ocol := acol;
end;
end;
Hier heb ik codesteun nodig a.u.b.
Bookmarks