The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Opening of File folder from OnMouseDown event of Shape1 object
I would like to make a form with picture in backraund. And on this picture i'll have same shapes which will connect me to defined folders when it would be clicked on the shapes.
Thank you
For example would like to open folder : D:\pc1Lo
from the event OnMouseDown kliking on shape1.
Thank you
For example would like to open folder : D:\pc1Lo
from the event OnMouseDown kliking on shape1.
Asked:
1 Solution
see attached example:
uses ShellAPI;
{$R *.dfm}
procedure OpenFolder(FolderName: string);
begin
Screen.Cursor := crHourGlass;
try
ShellExecute(0, 'open', PChar(FolderName), '', '', SW_SHOWNORMAL);
finally
Screen.Cursor := crDefault;
end;
end;
procedure TForm2.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
OpenFolder('D:\pc1Lo');
end;
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
For example would like to open folder : D:\pc1Lo
from the event OnMouseDown kliking on shape1.