An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Then:
procedure TForm1.FormKeyDown(Sender:
begin
if key = VK_ESCAPE then showmessage('Esc key.');
end;
"Ah, one more question, the speed button (TSpeedButton) doesn't have .Cancel property as a button have which reponses to Escape keypress if .Cancel set to true. How can I make a speed button response to Escape keypress? I tried to make a child class of TSpeedButton which has Cancel property but unsuccessful (maybe I didn't know how to do it). "
Not sure what you are doing here....?
Are you using this for a modal dialog?
Do you want the button to send a ModalResult - i.e. mrCancel
procedure TForm1.Button1Click(Sender
begin
ModalResult:= mrCancel;
Close;
end;
SHane