Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.033 c