Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

НЕ машет в чём проблема???? [D6, WinXP]

maximus1986 © (2002-11-05 20:34:00)
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"

dj_adrian (2002-11-07 22:58:00) [1]
Господи, я не думал, что бывает такое...

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

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

that"z all;)

Набережных С. (2002-11-07 18:47:00) [2]
>Alex4444444444 (07.11.02 16:51)

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

Alex4444444444 (2002-11-07 16:51:00) [3]
> Набережных С., Alibaba
A pri chem tut budushee? Chto, sejchas takih program(-istov) malo?

Alibaba (2002-11-07 15:41:00) [4]
> Набережных С.
Я понимаю Ваш страх.

maximus1986 (2002-11-07 14:24:00) [5]
Да я чуте не разьяснил ситуацию:
Insl это я так обозначил кнопочку имя такое дал.

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

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

Набережных С. (2002-11-06 22:35:00) [6]
Меня преследует за будущее страх...

maximus1986 (2002-11-06 21:17:00) [7]
Только я не понял, что за INSL ???
И вообще, что ты хочешь этим кодом добиться?
Да я чуте не разьяснил ситуацию:
Insl это я так обозначил кнопочку имя такое дал.

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

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

Геннадий (2002-11-05 21:10:00) [8]
У себя в форме добавляешь процедуру
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 ???
И вообще, что ты хочешь этим кодом добиться?

Cr@sh (2002-11-05 21:05:00) [9]
Что такое insl?

Alex4444444444 (2002-11-05 21:05:00) [10]
Tak a chto nado to? Mozhet,

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

Alex4444444444 (2002-11-05 20:51:00) [11]
ShellExecute(handle, nil, "FLASHGET 1.3\fgf13.exe", nil, nil, SW_SHOWNORMAL) --- eto voobshe prosto chislo.

maximus1986 (2002-11-05 20:51:00) [12]
Не понял как переправить мой случий плизз переправте!!!!

ggsoft (2002-11-05 20:49:00) [13]
insl???, да это и не важно...

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

Anatoly Podgoretsky (2002-11-05 20:43:00) [14]
Машет, что ты пишешь страшную ерунду, почему то пытаешься присвоить обработчику результат функциию

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »