Also ich habe die
Unit aus dem Fix hinzugefügt, einem Control die ContextID=100 gegeben und als Test mal das gemacht:
Delphi-Quellcode:
function TxForm.FormHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
ShowMessage(inttostr(Data));
end;
Die Ausgabe ist: 3145734
und 100 - Es erscheinen 2 Messageboxen hintereinander!
Wo kommt denn die 3145734 her?
Gruß Igotcha