Solved

Opening of File folder from OnMouseDown event of Shape1 object

Posted on 2007-11-22

Delphi

1 solution

187 Views

Last Modified: 2010-04-05

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.

Comment

Question by:pr2501

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

Author Comment

by:pr2501

ID: 203376792007-11-22

For example would like to open folder : D:\pc1Lo

from the event OnMouseDown kliking on shape1.

LVL 19

Accepted Solution

by:MerijnB

MerijnB earned 125 total points

ID: 203377982007-11-23

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;

Open in new window

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

How to reduce your main form uses clause

Article by: Geert

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…

Delphi

Parallel Port Control with Delphi

Article by: thiagoblimeira

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…

Delphi

Network monitoring: why having a policy is the best policy?

Video by: AdRem

Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

Bar Graphs in an Access Query

Video by: crystal

Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …