HELP!!!!!!!!!

← →
Narik © (2005-01-28 23:42) [0]

Здравствуйте умные люди!!! У меня вопрос!
Приставьте что я создаю Помощь и:

В edit1 пишу:
procedure TForm1.Edit1Change(Sender: TObject);
begin
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
end;

А в Create пишу:
procedure TForm1.FormCreate(Sender: TObject);
var SearchRec: TSearchRec;
begin
ListBox1.Items.BeginUpdate;
if FindFirst(ExtractFilePath(Application.ExeName)+"Help\*.TxT",
0,SearchRec) = 0 then
repeat
ListBox1.Items.Add(SearchRec.Name);
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
ListBox1.Items.EndUpdate;
end;

А что писать в ListBox1DblClick чтобы при двойном щелчке он открывал этот файл в Memo1????

← →
Луарвик (2005-01-29 00:05) [1]

Memo1.lines.loadfromfile(ListBo1.items[Номер выбраной строки!])
че-то вроде того. Точнее не могу. Делфи удален

← →
Околокомпьютерный (2005-01-29 00:13) [2]

Perform чем занимается??

← →
Narik © (2005-01-29 01:34) [3]

Help!!!

← →
Narik © (2005-01-29 22:12) [4]

Help!!!!!

← →
вредитель (2005-01-29 22:59) [5]

На мой взгляд, лучше всего сделать help файл в виде chm, (Смотри также в гугле Help&Manual), потом динамически загрузить hhctrl.ocx как DLL (ея можен небыть), получить адрес функции HtmlHelp, и вызывать с помощью нее нужный топик справки.

В плюсах это выглядит примерно так:
typedef HWND (__stdcall *PFN_HtmlHelp)(HWND, const TCHAR *, UINT, DWORD); PFN_HtmlHelp pfnHtmlHelp; HMODULE hLib; hLib = LoadLibrary(_T("hhctrl.ocx")); if (hLib) { #ifdef _UNICODE pfnHtmlHelp = (PFN_HtmlHelp)GetProcAddress(hLib, "HtmlHelpW"); #else pfnHtmlHelp = (PFN_HtmlHelp)GetProcAddress(hLib, "HtmlHelpA"); #endif } if (pfnHtmlHelp) pfnHtmlHelp(m_hWnd, CString(szBaseDir) + _T("\\helpfile.chm::/index.htm>main"), 0, NULL);
Советую также почитать раздел msdn, посвященный compiled html.
Так справку делают во всех развитых странах. В общем, разбирайся.

Делай ссылку на http файл через шеллексекюте и будет тебе счастье...

HELP!!!!!!!!! Найти похожие ветки