Вызов окна добавления файла при нажатии на кнопку

@saladd · Регистрация: 07.06.2012

Студворк — интернет-сервис помощи студентам

Как сиё чудо делается в Delphi 2010 я чего-то не догнал?
Я имею ввиду как сделать так чтобы окно добавления файла выскочило при нажатии на контроль
tbottom.
В Delphi 2010 сделано так ,что кнопка и окно вроде как один и тот же элемент.
При нажатии на неё выскакивает окно , а можно сделать так чтобы при нажатии на
tbottom.

@mss · 21.09.2012, 12:33

Нет такого окна - "добавление файла".
Есть стандартные (совместимые со всеми предыд.версиями Delphi) диалоговые компоненты классов TOpenDialog и TSaveDialog.

@saladd · 21.09.2012, 17:13 **[ТС]**

mss, я имею ввиду прикрепить это к кнопке tbottom и сотведственно к продцедуре.
Если стандартые кнопки диалога не использовать>

@volvo · 21.09.2012, 17:16

Во-первых, можно по-русски объяснить, что такое tbottom?

Во-вторых, что именно и к чему надо прикрепить? Нормальным языком напиши: "при нажатии на то-то и то-то должно происходить то-то и то-то, а у меня не получается, хотя вот так пытался"

@TeRmiToN · 21.09.2012, 17:45

Сообщение от saladd

В Delphi 2010 сделано так ,что кнопка и окно вроде как один и тот же элемент.
tbottom.

tbUttoN-если не путаю вроде как класс, а кнопка есть объект класса(Например "Button1"стандартное имя).
Все визуально отображаемые объекты (будь форма, кнопка, метка и т.д) относятся к своему подклассу, так сказать дочернему.. наследуя его методы.. в целом может у них методы и схожи (но не все).
Я конечно только еще учусь и сейчас читаю много, от этого и каша может быть в голове, при повторной прочитке думаю все встанет на свои места. Если я ошибаюсь поправьте меня.
А вам советую книжку взять почитать, если у вас здесь проблемы при клике на кнопку открытия файла, то я тогда нз, может я еще не совсем искурил свои мозги))

@saladd · 23.09.2012, 13:39 **[ТС]**

мне нужно было чтобы не используя стандартные компоненты визуализации открыть окно добавления/записи файла.

@TeRmiToN · 24.09.2012, 11:23

Сообщение от saladd

мне нужно было чтобы не используя стандартные компоненты визуализации открыть окно добавления/записи файла.

Можете тогда описать поподробнее.. что вы хотите, где и в какой момент?

@volvo · 24.09.2012, 11:50

Сообщение от saladd

не используя стандартные компоненты визуализации

Имеются в виду стандартные Дельфийские компоненты? Тогда используй WinAPI-шную функцию GetOpenFileName:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses ..., CommDlg;
 
// ...
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ofn: TOpenFilename;
  Buff: array [0..MAX_PATH - 1] of Char;
begin
   ZeroMemory(@ofn, SizeOf(TOpenFilename));
   with ofn do
   begin
      lStructSize:=sizeOf(TOpenFilename);
      lpstrInitialDir:=pChar(ParamStr(0));
      lpstrTitle := 'Открыть файл ...';
      nMaxFile := MAX_PATH;
      hWndOwner := Self.Handle;
      lpstrFile := @Buff[0];
      lpstrFilter := 'Текстовый файл'+#0+'*.txt'+#0+'Все файлы'+#0+'*.*'+#0#0;
      Flags := OFN_EXPLORER or OFN_CREATEPROMPT or OFN_FILEMUSTEXIST or
               OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
   end;
 
   if GetOpenFileName(ofn) then
   begin
      MessageBox(0, pChar(ofn.lpstrFile), 'Сообщение', MB_OK);
   end;
end;

DenNik · 24.09.2012, 12:09

Сообщение от saladd

мне нужно было чтобы не используя стандартные компоненты визуализации открыть окно добавления/записи файла.

так непонятно: то ли ТС не хочет использовать стандартные диалоги открытия/сохранения файла на диске, то ли он хочет просто редактировать файл без использования, например TMemo.

UI, ты по ходу напугал его

@volvo · 24.09.2012, 12:22

Не по теме:

Знал бы ты, как он меня напугал. Виданное ли дело, при наличии готового стандартного компонента (работающего во всех версиях Дельфи) запрещать его использование :)

@TeRmiToN · 24.09.2012, 12:25

Согласен, его ход мыслей вообще не понятен. Видать хочет еще один велосипед!

DenNik · 24.09.2012, 12:27

Сообщение от TeRmiToN

Согласен, его ход мыслей вообще не понятен. Видать хочет еще один велосипед!

Не по теме:

2,5-колёсный! :D

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@saladd 1 / 1 / 0 Регистрация: 07.06.2012 Сообщений: 212

	Вызов окна добавления файла при нажатии на кнопку 21.09.2012, 08:51. Показов 2083. Ответов 11 Метки нет (Все метки) Как сиё чудо делается в Delphi 2010 я чего-то не догнал? Я имею ввиду как сделать так чтобы окно добавления файла выскочило при нажатии на контроль tbottom. В Delphi 2010 сделано так ,что кнопка и окно вроде как один и тот же элемент. При нажатии на неё выскакивает окно , а можно сделать так чтобы при нажатии на tbottom. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	21.09.2012, 12:33
	Нет такого окна - "добавление файла". Есть стандартные (совместимые со всеми предыд.версиями Delphi) диалоговые компоненты классов TOpenDialog и TSaveDialog. 0

@saladd 1 / 1 / 0 Регистрация: 07.06.2012 Сообщений: 212
	21.09.2012, 17:13 [ТС]
	mss, я имею ввиду прикрепить это к кнопке tbottom и сотведственно к продцедуре. Если стандартые кнопки диалога не использовать> 0

@volvo Супер-модератор 33187 / 21484 / 8232 Регистрация: 22.10.2011 Сообщений: 36,862 Записей в блоге: 12
	21.09.2012, 17:16
	Во-первых, можно по-русски объяснить, что такое tbottom? Во-вторых, что именно и к чему надо прикрепить? Нормальным языком напиши: "при нажатии на то-то и то-то должно происходить то-то и то-то, а у меня не получается, хотя вот так пытался" 0

@saladd 1 / 1 / 0 Регистрация: 07.06.2012 Сообщений: 212
	23.09.2012, 13:39 [ТС]
	мне нужно было чтобы не используя стандартные компоненты визуализации открыть окно добавления/записи файла. 0

@volvo
	24.09.2012, 12:22
	Не по теме: Знал бы ты, как он меня напугал. Виданное ли дело, при наличии готового стандартного компонента (работающего во всех версиях Дельфи) запрещать его использование :) 0

@TeRmiToN 1 / 1 / 0 Регистрация: 10.11.2011 Сообщений: 46
	24.09.2012, 12:25
	Согласен, его ход мыслей вообще не понятен. Видать хочет еще один велосипед! 0