Управление ярлыками

[Stilet]

и типы в добавок не совпадают

Показывай код. Для Shellexecute в некоторых случаях строковые параметры нужно приводить к PCHAR:

Shellexecute(Handle, 'open', pchar(WAY), '', nil , SW_SHOW);

[Пепел Феникса]

вместо Хендла можете и 0 поставить.
напишите так:
PAnsiChar(путь)

[FatumS]

Ребята написал вот так,

procedure TLink.DblClick(Sender: TObject);
begin
Shellexecute(0, 'open', PAnsiChar(WAY), '', nil , SW_SHOW);
end;

программа запускается но по двойному щелчку по ярлыку ничего не происходит, а должна открыться программа если я не ошибаюсь

[BaronTreep]

Ставь брейк-поинт левее этой строчки (красным) и жми F9, потом нажимай кнопку, и должен будешь попасть прямо на эту строку. Если нет, значит с методом что-то не то. Если брейк сработал, то в этом режиме Дельфи должен показывать значение всех переменных, при наведении мыши. Поэтому если в WAY правильный путь и он преобразован к PChar, то это просто мистика.

[Stilet]

по ярлыку ничего не происходит

Значит нужно проверить результат который эта функция возвращает. Его значения см в хелпе.

if ShellExecute(form1.handle,'open','D:\Help\api_help.exe','D:\Help\','',SW_HIDE)<=32 тхен RaiseLastWin32Error;

[FatumS]

Сделал как писал BaronTreep с брейк-поинтом, ничего не произошло - метод значит неправильный, да? А что делать в таком случае?
Компилятор пишет еще вот такую гадость
[Warning] Unit1.pas(25): Method 'DblClick' hides virtual method of base type 'TControl'

[BaronTreep]

Кидай весь код в архиве. Я недавно тоже панельки раставлял по такому принципу...

[FatumS]

Да ничего особого в коде нет, все то что написано в теме. Основной от BaronTreep, вот только решил сделать функциональными процедуры Click, DblClick, SlowDblClick, ImageMouseMove, ImageMouseDown, ImageMouseUp. Еще даже иконки не вытягивал с файла чтобы функции не мешали визуально с кодом работать, а просто по заданному пути ставлю одно и тоже изображение.Это ведь первый шаг к созданию программы и оказался самым сложным.

[BaronTreep]

Тогда вот какая идейка насчет переписывания функций. Ты наследуешь класс иконки от TPanel (или TImage), и если хочешь делать методы, то делаешь примерно так:

const
  MAX_ICONS = 1000;

type TIconPanel = class(TPanel)
  protected
    MousePut : Boolean;
    XPut, YPut : integer;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer); override;
    procedure DblClick; override;
  public
    {..}
    procedure INItial({..});
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
end;

type TIconList = array [1 .. MAX_ICONS] of TIconPanel;

{..}

constructor TIconPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  {..}
end;

destructor TPlugInPanel.Destroy;
begin
  [...}[/color]
  inherited Destroy;
end;

procedure TIconPanel.INItial({..});
begin
  {..}
end;

procedure TIconPanel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: integer);
begin
  MousePut := True;
  XPut := X;
  YPut := Y;
end;

procedure TIconPanel.MouseMove(Shift: TShiftState; X, Y: integer);
begin
  if MousePut then begin
        Self.Left := Self.Left + X - Xput;
        Self.Top := Self.Top + Y - Yput;
        
  end;
end;

procedure TIconPanel.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer);
begin
  MousePut := False;
end;

procedure TIconPanel.DblClick;
begin
  {..}
end;

Т.е. заметь что мы наследуем методы с переопределением - к.с. override; и вызываем метод предка - inherited.

[FatumS]

Всем привет. Чет я не пойму, мучился несколько дней, перепробовал кучу способов и все бесполезно. Неужели я такой тупой что ли? Ребята если кто может помогите пожалуйста очень прошу, а то у меня скоро нервы сдадут.