Главная страница
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.017 c
8-21689
kuzmich
2002-07-17 11:26
2002.11.07
GLScene


6-21704
der
2002-09-09 17:29
2002.11.07
Где скачать ICS для DELPHI 5


1-21593
delpher_gray
2002-10-29 19:07
2002.11.07
Как из нескольких чисел найти самое большое ;-)


3-21424
Andrey Pelipets
2002-10-18 18:33
2002.11.07
ADO:фильтрация записей с частичным совпадением


14-21789
lutikh
2002-10-18 21:18
2002.11.07
Database Desktop по-русски