Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c