Текстовый редактор

← →
dolphin (2004-11-11 15:49) [0]

есть у меня(свой) простой(тупой) редактор и все файли с расширением txt открываются так открывается только прога с пустым текстом при запуске допустим файла test.txt нужно чтобы загружалась прога с этим же текстом тобеж
procedure TForm1.FormCreate(Sender: TObject);
begin
loadfromfile(f);// ??как узнать чему должно равнятся f ??
end;

← →
Zandrey © (2004-11-11 16:50) [1]

> можно по подробнее про Drag&Drop?! я не понял:(

В delphi7 есть в Demos редактор RichEdit, там реализован Drag&Drop.

← →
-=SS=- © (2004-11-11 17:06) [2]

А также ParamStr(1)

← →
Zandrey © (2004-11-11 17:44) [3]

Если строчка пути слишком длинная то ParamStr(1)+ParamStr(2)..

← →
dolphin (2004-11-11 18:14) [4]

да там еще куча чего описано простейший премер мне нужен и все
а не 800 строчек кода

← →
Norn © (2004-11-11 21:25) [5]

собственно memo1.lines.loadfromfile(ParamStr(1));

← →
Norny (2004-11-11 21:25) [6]

собственно memo1.lines.loadfromfile(ParamStr(1));

← →
dolphin (2004-11-12 00:13) [7]

не пашет :((

← →
Германн © (2004-11-12 02:54) [8]

Во-первых в реестре для файлов *.txt должна быть зарегистрирована ваша программа Open=YourProgram %1
А потом -
procedure TForm1.FormCreate(Sender: TObject);
begin
Что-то.loadfromfile(ParamStr(1));
end;

← →
Zandrey © (2004-11-12 14:40) [9]

Реализацыя > Drag&Drop

interface ... private ... procedure WMDropFiles(var Msg: TWMDropFiles);message WM_DROPFILES; ... implementation ... procedure TTestForm.WMDropFiles(var Msg: TWMDropFiles); var CFileName: array[0..MAX_PATH] of Char; ... begin try if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then begin memo1.clear; memo1.lines.loadfromfile(CFileName); Msg.Result := 0; end finally DragFinish(Msg.Drop); end; end;
А в методе TForm1.Create(...) вставь процедуру
DragAcceptFiles(Handle, True);

Теперь твой редактор поддержует Drag&Drop.

← →
dolphin (2004-11-12 14:49) [10]

так я так и делаю все txt открsваются моей прогой а вот в ней пустота

> procedure TTestForm.WMDropFiles(var Msg: TWMDropFiles);

> TForm1.Create(...)

TForm1.WMDropFiles(var Msg: TWMDropFiles);
то есть индефикатор твоей формы

← →
dolphin (2004-11-12 14:53) [12]

все пашет сенкс (у меня в пропертях надо было покопатся перед этим )

> так я так и делаю все txt открsваются моей прогой а вот
> в ней пустота

напиши код как ты это делаеш?

Текстовый редактор Найти похожие ветки