Главная страница
    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.041 c
14-1100202820
Сенокур Петя
2004-11-11 22:53
2004.11.28
В чём делается формате pdf?


14-1100262319
ПЛОВ
2004-11-12 15:25
2004.11.28
Помогите придумать название...


4-1097862186
ser_ega
2004-10-15 21:43
2004.11.28
Twain


1-1100436459
Polycom
2004-11-14 15:47
2004.11.28
Код ASCII


3-1099136559
Black
2004-10-30 15:42
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский