| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

dolphin ©   (2004-11-11 15:49:00) 

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

---

Zandrey   (2004-11-12 14:54:00) [1]

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

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

---

dolphin   (2004-11-12 14:53:00) [2]

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

---

Zandrey   (2004-11-12 14:52:00) [3]

> procedure T TestForm.WMDropFiles(var Msg: TWMDropFiles);


> TForm1.Create(...)


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

---

dolphin   (2004-11-12 14:49:00) [4]

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

---

Zandrey   (2004-11-12 14:40:00) [5]

Реализацыя > 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.

---

Германн   (2004-11-12 02:54:00) [6]

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

---

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

не пашет :((

---

Norn   (2004-11-11 21:25:00) [8]

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

---

Norny   (2004-11-11 21:25:00) [9]

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

---

dolphin   (2004-11-11 18:14:00) [10]

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

---

Zandrey   (2004-11-11 17:44:00) [11]

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

---

-=SS=-   (2004-11-11 17:06:00) [12]

А также ParamStr(1)

---

Zandrey   (2004-11-11 16:50:00) [13]

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


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

---

Наверх