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

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

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

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

Опции темы

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

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

#461

09.08.2007, 15:33

Ch3ck

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

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

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

Провел на форуме:
5301021

Репутация: 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

Провел на форуме:
329032

Репутация: 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

Провел на форуме:
329032

Репутация: 8

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

#464

09.08.2007, 15:45

NetMan

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

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

Сообщений: 122

Провел на форуме:
1089794

Репутация: 134

Код:

OpenDialog1.OptionsEx:=[ofExNoPlacesBar];

#465

09.08.2007, 15:54

~~Piflit~~

Banned

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

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

Провел на форуме:
5128756

Репутация: 2032

Отправить сообщение для Piflit с помощью ICQ

Цитата:

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

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

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

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

#466

09.08.2007, 15:54

infernal-team

Познающий

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

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

Цитата:

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

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

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

#467

09.08.2007, 15:56

infernal-team

Познающий

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

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

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

#468

09.08.2007, 15:59

Ch3ck

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

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

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

Провел на форуме:
5301021

Репутация: 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

Провел на форуме:
329032

Репутация: 8

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

#470

10.08.2007, 23:15

PandoraBox

Постоянный

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

Сообщений: 393

Провел на форуме:
1510937

Репутация: 398

Отправить сообщение для PandoraBox с помощью ICQ

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

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

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

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

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