Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

Из FileListBox в Ричедит   Найти похожие ветки 

 
Whippi ©   (2002-10-29 14:39) [0]

Есть всем известный пример из поставки Дельфи как: Image Viewer,
там при клике из FileListBox в Image1 показывается картинка, она показывается вот таким образом: Image1.Picture.LoadFromFile(FileListBox1.Filename);,
а можно ли сделать так, чтоб при клике из FileListBox в Ричедите показывался текст, чтото типа Ричедит.Text.LoadFromFile(FileListBox1.Filename).
Может кто делал или знает, подскажите пожалуйста.


 
Smithson ©   (2002-10-29 15:04) [1]

Ричедит. Lines.LoadFromFile


 
Whippi ©   (2002-10-29 15:34) [2]

Блин не получается, подскажите в чем заковырка:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SynEditHighlighter, SynHighlighterHtml, SynEdit, FileCtrl,
StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
RichEdit1: TRichEdit;
procedure FileListBox1Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Enter(Sender: TObject);
var
FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
if (FileExt = ".htm") or (FileExt = ".html") then
begin
RichEdit1.Lines.LoadFromFile(FileListBox1.Filename);
end;
end;

end.


 
Smithson ©   (2002-10-29 15:50) [3]

где не получается, что говорит?
и, наверное, не Enter, а Click?


 
Whippi ©   (2002-10-29 16:03) [4]

Да, прошу прощения Click :)) на клике по файлу в RichEdit ни чего не отображается. И никаких сообщений нет


 
¤NoNaMe¤ ©   (2002-10-29 16:27) [5]

условие
if (FileExt = ".htm") or (FileExt = ".html")
никогда не выполняется


 
Whippi ©   (2002-10-29 17:04) [6]

Ах вот блин вчем дело,
спасибо за подсказку.



Страницы: 1 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
4-21847
d-coder
2002-09-23 19:31
2002.11.07
В чем прикол??????????????????????????


7-21827
Frog_killer
2002-09-06 00:01
2002.11.07
Как получить информацию о процессоре?


1-21463
acorus
2002-10-25 19:58
2002.11.07
можно ли получить значение константы имея ее имя как строку?


7-21832
natalinka
2002-09-06 09:18
2002.11.07
выключить компьютер


14-21817
Ajax
2002-10-13 13:12
2002.11.07
MPEG4 фильмы на слабой машине...