Перемещение по коду

[mishax]

Стоить дельфи 7.

Предположим, я написал любую процедуру или функцию и обозначил (вверху).

Написал ее вызов и, если кликнуть мышкой, предварительно нажав ctrl, то тебя перекидывает на нее (описание с телом), а бывает перекидывает на ее название (в шапке файла).

Как можно настроить поведение ссылок?

[Johnson]

*Взялся за голову*
Код в студию... Желательно кастрированный до уровня (полу-)рабочего примера.

Если не понятно как сделать распознание модификаторов - то просто.
У большинства нажимаемых контролов есть эвент OnMouseUp, срабатывает, когда кликнули на контрол, и отпустили кнопку мыши (в момент отпускания).

{  TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);
}
procedure TDLL_Injector_Form.btn_StartExeLibMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Shift = ssCtrl then begin
    //штотатам
  end;
end;

[mishax]

Сообщение от Johnson

*Взялся за голову*
Код в студию... Желательно кастрированный до уровня (полу-)рабочего примера.

пример:

uses .....
type
  TForm1 = class(TForm)
  ...
  procedure alert;
  procedure alertname;
  private
    { Private declarations }
  public
  published
    { Public declarations }
  end;
implementation

{$R *.dfm}

procedure TForm1.alert;
begin
showmessage(alert);
end;

procedure TForm1.alertname;
begin
alert('Александр');
end;
end;
end.

По моему, негде не ошибся.
Если нажать на выделенное слово alert в процедуре alertname (+зажать ctrl), то кинет на procedure TForm1.alert;, а бывает и кинет на описание сверху (подчеркнуто)

[Johnson]

Или я чего-то не понимаю в основах дельфи, или у Вас ошибка.
Как минимум тут

showmessage(alert);

Нельзя в эту функцию передать аттрибутом процедуру.

Опишите конкретнее желаемое поведение программы.

PS: Если есть форма или общий класс в приложении - то рекомендую Ваши процедуры делать методами этого класса. Объявлять в public формы в данном случае.

[Sibedir]

Опишите конкретнее желаемое поведение программы.

ТС просит объяснить поведение не программы, а среды разработки.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure M1;
  end;

procedure P1;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure P1;
begin
  Form1.M1;
end;

{ TForm1 }

procedure TForm1.M1;
begin
  P1;
end;

end.

Если Ctrl+клик на

Form1.M1;

(строка 29), то курсор перейдет на

procedure TForm1.M1;

в разделе implementation. А если Ctrl+клик на

begin
  P1;
end;

(строка 36), то на

procedure P1;

в разделе interface.

P/S: У мну Delphi 2010.

[mishax]

Сообщение от Sibedir

ТС просит объяснить поведение не программы, а среды разработки.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure M1;
  end;

procedure P1;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure P1;
begin
  Form1.M1;
end;

{ TForm1 }

procedure TForm1.M1;
begin
  P1;
end;

end.

Если Ctrl+клик на

Form1.M1;

(строка 29), то курсор перейдет на

procedure TForm1.M1;

в разделе implementation. А если Ctrl+клик на

begin
  P1;
end;

(строка 36), то на

procedure P1;

в разделе interface.

P/S: У мну Delphi 2010.

да, поведение среды, извините не корректно выразился)

хотелось бы, чтобы при клике на вызов процедуры/функции переход был на строку с ее описанием (название и тело), а не ее название в шапке файла.

[Sibedir]

Толкового ответа не дам, но может это жизнь облегчит: Ctrl+↓

http://www.interface.ru/home.asp?artId=21924