Wie kann ich TShiftState in einer Procedure als Parameter übergeben?
Wenn möglich möchte ich Null/Nil übergeben.
Programmunit_main.pas(138,41) Error: Incompatible type for arg no. 3: Got "TShiftStateEnum", expected "TShiftState"
Code: Alles auswählen
procedure TfrmMain.btnInsertClick(Sender: TObject);
begin
dbLuSearch(Nil, VK_RETURN, ssShift);
end;
procedure TfrmMain.dbLuSearch(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_RETURN) then
begin
UpdateEdits;
end;
end;
Code: Alles auswählen
{ Types used by standard events }
TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble,
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);
{$packset 1}
TShiftState = set of TShiftStateEnum;
{$packset default}
Gruss Int3g3r