Текущий архив: 2004.11.28;
Скачать: CL | DM;
Вниз
Текстовый редактор Найти похожие ветки
← →
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ваются моей прогой а вот в ней пустота
← →
Zandrey © (2004-11-12 14:52) [11]
> procedure TTestForm.WMDropFiles(var Msg: TWMDropFiles);
> TForm1.Create(...)
TForm1.WMDropFiles(var Msg: TWMDropFiles);
то есть индефикатор твоей формы
← →
dolphin (2004-11-12 14:53) [12]все пашет сенкс (у меня в пропертях надо было покопатся перед этим )
← →
Zandrey © (2004-11-12 14:54) [13]
> так я так и делаю все txt открsваются моей прогой а вот
> в ней пустота
напиши код как ты это делаеш?
Страницы: 1 вся ветка
Текущий архив: 2004.11.28;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.037 c
