Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.05.2011, 08:26   #1
Сергей58rus
Пользователь
 
Регистрация: 07.04.2011
Сообщений: 28
Подмигивание "Open" и "сохранить" в Дельфи

Подскажите, как в дельфи с помощью MAINMENU создать кнопки "open" и "сохранить" определённый объект на компьютере весь интернет обыскал ничего стоющего не нашёл(( ...
Сергей58rus вне форума
Старый 10.05.2011, 09:28   #2
Азамат Казанчев
Форумчанин
 
Регистрация: 25.04.2011
Сообщений: 110
По умолчанию

создать кнопки можно легко, нажав на мэйнменю дважды и тд.
(описывать лень, но если что пиши), а вот что тебе дальше надо от этих кнопок? я не понял. постараюсь угадать: используй opendialog и savedialog из вкладки dialog(если правильно помню)
Азамат Казанчев вне форума
Старый 10.05.2011, 15:57   #3
Сергей58rus
Пользователь
 
Регистрация: 07.04.2011
Сообщений: 28
По умолчанию

если делать вот так, то выдаёт ошибку...если можите пришлите код программы.
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
TOpenDialog;
end;
end.
Как создать я знаю...мне нужно что бы кликая на "открыть" появлялось окно с моими документами(или от куда хочешь открыть) так же и с сохранить...

а вот как написать я не знаю((

Последний раз редактировалось Stilet; 11.05.2011 в 13:29.
Сергей58rus вне форума
Старый 10.05.2011, 16:04   #4
MoBLer
Пользователь
 
Аватар для MoBLer
 
Регистрация: 30.12.2010
Сообщений: 91
По умолчанию

Код:
var
name:string;
begin
if opendialog1.Execute then
name:=opendialog1.FileName;
end;
используй savedialog так же для сохранения
Я тебе помог, добавь отзыв)))))
Статьи по программированию
MoBLer вне форума
Старый 10.05.2011, 16:13   #5
Сергей58rus
Пользователь
 
Регистрация: 07.04.2011
Сообщений: 28
По умолчанию

Спасибо огромное)))

а как сделать так чтобы проект сохранялся в определённом типе файлов?
так же и сохранять в этом типе?))

Последний раз редактировалось Stilet; 11.05.2011 в 13:29.
Сергей58rus вне форума
Старый 11.05.2011, 13:22   #6
flexterful
Пользователь
 
Регистрация: 22.08.2008
Сообщений: 39
По умолчанию

Описать свойство Filters
Напиши OpenDialog.Filters, курсор поставь на слово Filters, нажми F1 и узреешь счастье.
Чего бы тут сделать, дабы ничего неделать?
flexterful вне форума
Старый 11.05.2011, 16:44   #7
Сергей58rus
Пользователь
 
Регистрация: 07.04.2011
Сообщений: 28
По умолчанию

А не надо использовать assign?
Сергей58rus вне форума
Старый 11.05.2011, 17:44   #8
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
По умолчанию

Вопросы тривиальнейшие. Читаем литературу и не засоряем подобными темами форум.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. Каравай Microsoft Office Excel 13 17.02.2010 09:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
сделать окно "открыть","сохранить как" blackstersl Общие вопросы Delphi 1 24.08.2008 10:31