[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 47 из 677

Опции темы

Поиск в этой теме

Опции просмотра

#461

09.08.2007, 15:33

Ch3ck

Познавший АНТИЧАТ

Регистрация: 09.06.2006

Сообщений: 1,359

С нами: 10485026

Репутация: 1879

Цитата:

Подскажете как сделать чтобы при нажатии буттон открывался опен диалог.

Простой пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
end;
end.

Цитата:

убрать с опен диалога вкладки

По-моему нельзя их убрать...

#462

09.08.2007, 15:39

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

С нами: 9923122

Репутация: 8

ВыДаеТ вот такие ошибки:

[Error] Unit4.pas(33): Undeclared identifier: 'Memo1'
[Error] Unit4.pas(33): Missing operator or semicolon
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

В чем дело?

#463

09.08.2007, 15:40

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

С нами: 9923122

Репутация: 8

Все разобрался эта строка лишняя - Memo1.Lines.LoadFromFile(OpenDialog1.Filename); !!!

#464

09.08.2007, 15:45

NetMan

Участник форума

Регистрация: 09.02.2004

Сообщений: 122

С нами: 11710201

Репутация: 134

Код:

OpenDialog1.OptionsEx:=[ofExNoPlacesBar];

#465

09.08.2007, 15:54

~~Piflit~~

Banned

Регистрация: 11.08.2006

Сообщений: 1,522

С нами: 10393869

Репутация: 2032

Цитата:

Сообщение от infernal-team

По-моему нельзя их убрать...

Я видел в какойто программе. х3 может ты и прав.

вроде от системы зависит

#466

09.08.2007, 15:54

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

С нами: 9923122

Репутация: 8

Цитата:

Сообщение от Dr.Check

По-моему нельзя их убрать...

Видел в какойто программе, хотя х3 может ты и прав.

#467

09.08.2007, 15:56

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

С нами: 9923122

Репутация: 8

А как сделать когда в опен диалоге выбираеш файл чтобы он был виден в едит. (тоесть полный путь для файла.

#468

09.08.2007, 15:59

Ch3ck

Познавший АНТИЧАТ

Регистрация: 09.06.2006

Сообщений: 1,359

С нами: 10485026

Репутация: 1879

Сверхънаглость.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;
end;
end.

#469

09.08.2007, 16:11

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

С нами: 9923122

Репутация: 8

Dr.Check + 1, большое спасибо !!!

#470

10.08.2007, 23:15

PandoraBox

Постоянный

Регистрация: 06.05.2007

Сообщений: 393

С нами: 10008797

Репутация: 398

OpenDialog & SaveDialog на WinAPI как можно провернуть?

Страница 47 из 677

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход