>Hvordan checker jeg på om Shift eller Ctrl er holdt nede mens jeg dobbelt
>klikker på en form, det må være noget med Key, men den bliver jo ikke
>"sendt" med i dblClick proceduren, jeg kan ik lige helt greje det.
Hmm, du kan løse det på denne måde: Jeg har kombineret to af formens
events: OnDblClick og OnMouseDown.
procedure TForm1.FormDblClick(Sender: TObject);
begin
// Ved dobbeltklik "enabler" jeg den anden event
// Den er nemlig ikke sat som default, da ellers også et-klik fanges
OnMouseDown := FormMouseDown;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Start med at disable event'en igen...
OnMouseDown := nil;
// Hvis man holder Shift nede, så...
if ssShift in Shift then
ShowMessage('Shift');
// Hvis man holder Ctrl nede, så...
if ssCtrl in Shift then
ShowMessage('Ctrl');
end;
Håber det kan klare dit problem?
Mvh, Claus Nielsen
--
e-mail: cnn@post6.tele.dk
homepage:
http://home6.inet.tele.dk/cnn