[Tovarisch]

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

[uberchel]

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

[Tovarisch]

На Delphi конечно.

[uberchel]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

//Обезательно прекрепи модуль <b>ShellApi</b> implementation uses ShellApi;   //А вот cам код Shellexecute(0,'open',pchar('имя файла'),nil,nil,SW_Shownormal); и WinExec('Имя файла',SW_Shownormal);   SW_Shownormal - открыть по умолчанию SW_Showmaximized - во весь экран SW_Showminimize - в свернутом виде

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

[Tovarisch]

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

[Tovarisch]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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;

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