Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.034 c
6-1095402145
Maxix
2004-09-17 10:22
2004.11.28
TNMSMTP - Аттач к письму


14-1100172167
Ega23
2004-11-11 14:22
2004.11.28
Я вернулся.


14-1100275075
Томик
2004-11-12 18:57
2004.11.28
ищу друзей


3-1099310895
Артем К.
2004-11-01 15:08
2004.11.28
Проблемы с вычисляемым полем


14-1100199962
злобный Луарвик
2004-11-11 22:06
2004.11.28
Как всунуть прогу?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский