НЕ машет в чём проблема????

← →
maximus1986 (2002-11-05 20:34) [0]

procedure TForm1.Label2Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile("FLASHGET 1.3\~.txt");
insl.OnClick:=ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL);
end;
Пишет
[Error] Unit1.pas(68): Incompatible types: "TNotifyEvent" and "Cardinal"

← →
Anatoly Podgoretsky © (2002-11-05 20:43) [1]

Машет, что ты пишешь страшную ерунду, почему то пытаешься присвоить обработчику результат функциию

← →
ggsoft © (2002-11-05 20:49) [2]

insl???, да это и не важно...

OnClick - тип: TNotifyEvent = procedure(Sender: TObject) of object;
А --- ShellExecute(...) - это все-таки function ShellExecute(...): Cardinal; stdcall;. Да?

← →
Alex4444444444 (2002-11-05 20:51) [3]

ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL) --- eto voobshe prosto chislo.

← →
maximus1986 (2002-11-05 20:51) [4]

Не понял как переправить мой случий плизз переправте!!!!

← →
Cr@sh © (2002-11-05 21:05) [5]

Что такое insl?

← →
Alex4444444444 (2002-11-05 21:05) [6]

Tak a chto nado to? Mozhet,

procedure MyFormInslClick(Sender: TObject); begin ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL); end;

← →
Геннадий © (2002-11-05 21:10) [7]

У себя в форме добавляешь процедуру
procedure MyProc(Sender: TObject);

Описываешь её:
procedure Form1.MyProc(Sender: TObject);
begin
ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL)

// или что ты хочешь сделать?
end;

А далее пишешь ... . OnClick:= MyProc;

Только я не понял, что за INSL ???
И вообще, что ты хочешь этим кодом добиться?

← →
maximus1986 (2002-11-06 21:17) [8]

Только я не понял, что за INSL ???
И вообще, что ты хочешь этим кодом добиться?
Да я чуте не разьяснил ситуацию:
Insl это я так обозначил кнопочку имя такое дал.

У меня имеется лабел при нажатии на не го в кнопке isnsl должно активировать
ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL)

Потом при нажатии другово лабела должно запустится другой файл ... и т.д.

← →
Набережных С. (2002-11-06 22:35) [9]

Меня преследует за будущее страх...

← →
maximus1986 (2002-11-07 14:24) [10]

Да я чуте не разьяснил ситуацию:
Insl это я так обозначил кнопочку имя такое дал.

У меня имеется лабел при нажатии на не го в кнопке isnsl должно активировать
ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL)

Потом при нажатии другово лабела должно запустится другой файл ... и т.д.

> Набережных С.
Я понимаю Ваш страх.

← →
Alex4444444444 (2002-11-07 16:51) [12]

> Набережных С., Alibaba
A pri chem tut budushee? Chto, sejchas takih program(-istov) malo?

← →
Набережных С. (2002-11-07 18:47) [13]

>Alex4444444444 (07.11.02 16:51)

Да нет, не мало, но мне кажется, что их процент увеличиваеся:)
Может, это уже старческое брюзжание?

Господи, я не думал, что бывает такое...

Те что, трудно obClick обработать???

Че-ты там понаприсваивал, напрасно:)
событие - onLabelClick.

that"z all;)

НЕ машет в чём проблема???? Найти похожие ветки