[Tovarisch]

Здравствуйте!
Подскажите пожалуйста способ получения ссылки на объект по нажатию (на объекте) клавиши мыши.

[uberchel]

На каком языке програмированя надо ?

[Tovarisch]

На Delphi конечно.

[uberchel]

И так! есть 2 простые функции ShellExeute из модуля ShellApi и WinExec из модуля Windows !
С ShellExecute можно открыть любой файл а WinExec только PE 32 битные файлы.

Код:

//Обезательно прекрепи модуль ShellApi
implementation
uses ShellApi;

//А вот cам код
Shellexecute(0,'open',pchar('имя файла'),nil,nil,SW_Shownormal);
и 
WinExec('Имя файла',SW_Shownormal);

SW_Shownormal - открыть по умолчанию
SW_Showmaximized - во весь экран
SW_Showminimize - в свернутом виде

Если помог, нажми на весы с права!

[Tovarisch]

Эээээ, а причем тут файлы? Есть графический объект, наследник TGraphicControl он отрисован на какомто родительском окне. Нужно по нажатию на этот объект определить его адрес в ссылке, хоть бы и типизированной.

[Tovarisch]

Код:

procedure TNetConstructor.Button1Click(Sender: TObject);
var
WRect: EdgeCoords;
begin
{MyNode:= TNode.Create(Self);
MyNode.Name:='Node1';
MyNode.Parent:=(NetConstructor);
MyNode.Top:=100;
MyNode.Left:=100;
MyNode.Height:=10;
MyNode.Width:=10;
MyNode.Visible:=True;
MyNode.Enabled:=True; }
{
MyEdge:= TEdge.Create(Self);
MyEdge.Name:='Edge1';
MyEdge.Parent:=NetConstructor;
WRect.Sourcex:=100;
WRect.Sourcey:=100;
WRect.Endx:=50;
WRect.Endy:=50;
MyEdge.EdgeRect:=WRect;     }

if Sender is Tbutton then
  begin
  NetConstructor.Caption:=(Sender as TButton).Name;
  end;
end;

Если кому вдруг понадобится