Когда OpenDialog1 откроется, программа должна сама нажать на кнопку "Открыть"

@Programmer. · Регистрация: 17.11.2010

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

Добрый ноч форум!

У меня такое ситуация: когда OpenDialog1 откроется программа должна сама нажать на кнопку "Открыть",
что мне сделать чтоб ето так произайщло?
Спс заранее

LK · 03.05.2011, 03:01

скажи: какая цель этой возни с опендиалогом в двух темах ? может, для решения твоей задачи есть более понятные/простые способы ?

Если установить при вызове OpenDialog сразу нужную директорию, то за это отвечает свойство InitialDir. Для выбора директории можно использовать стандартную функцию SelectDirectory(), для этого необходимо подключить файл FileCtrl.hpp, в котором она описана:

C++

#include < FileCtrl.hpp >
//---------------------------------------------------------------------// функция SelectDirectory() имеет 2 варианта
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString sway = "c:\\";
// первый вариант
if(SelectDirectory("Укажите путь к папке","",sway)){
     OpenDialog1->InitialDir = sway;
     if(OpenDialog1->Execute()) {
         // ваши действия
         ShowMessage(OpenDialog1->FileName);
         }
   }
// второй вариант этой функции - подробнее смотрите в Help-e
// if(SelectDirectory(sway,
// TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt, 0))
// Label1->Caption = sway;
// ....
}

для общего развития: TOpenDialog

@Programmer. · 03.05.2011, 11:22 **[ТС]**

LK,

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

скажи: какая цель этой возни с опендиалогом в двух темах ? может, для решения твоей задачи есть более понятные/простые способы ?

Ну может быт и ест другой вариант но для етого мне вес код переделать подркбуется, жалко както, спс за код щас попробую!

mimicria · 03.05.2011, 11:27

Смысл вообще тогда какой от компонента? Он нужен только для того, чтобы получить имя открываемого файла. Если вы и так знаете какой файл открыть - компонент не нужен.

@Programmer. · 03.05.2011, 11:41 **[ТС]**

LK,
Спасибо за код но мне для OpenDialog надо только автоматическая нажатия на "Открыть", остольное я всё сделал.

Добавлено через 4 минуты
mimicria,
Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно)

mimicria · 03.05.2011, 11:44

Сообщение от Programmer.

mimicria,
Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно)

Вот я и спрашиваю, зачем OpenDialog, если имя файла вы уже знаете. Итог его работы - OpenDialog->FileName, который потом используется в каком-нибудь FileOpen(). Вот и используйте Edit->Text вместо OpenDialog->FileName.

@Sasha · 03.05.2011, 11:47

Сообщение от Programmer.

mimicria,
Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно)

Из этого выше сказанного я могу тебе сказать, что тебе нужно в Edit1 указывать полный путь к файлу, а потом этот путь тебе надо впихнуть в OpenDialog1.

Короче тут у тебя много лишнего на мой взгляд будет

@Programmer. · 03.05.2011, 11:53 **[ТС]**

Ну вот посмотрите, исправте если чёта лищнее, буду блогодарен

C++

void __fastcall TForm23::Button1Click(TObject *Sender)
{
    TStringList *str = new TStringList;
    HWND hwnd = Application->Handle;
    wchar_t const Path[14] = L"C:\\InfoBase\\";
    str->Append(LabeledEdit1->Text);
    str->Append(LabeledEdit2->Text);
    str->Append(LabeledEdit3->Text);
    str->Append(LabeledEdit4->Text);
    CreateDirectory(Path,NULL);
    str->SaveToFile("c:\\InfoBase\\"+LabeledEdit1->Text+" "+LabeledEdit2->Text+".txt");
    MessageBox(hwnd,L"Data saved",L"Information",MB_OK);
    delete str;
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button2Click(TObject *Sender)
{
HWND hwnd = Application->Handle;
TDate *dat= new TDate;
TSearchRec sr;
OpenDialog1->FileName = LabeledEdit5->Text+".txt";
if(OpenDialog1->Execute()){
Timer1->Enabled=true;
  FindClose(sr);
TStringList *lst1 = new TStringList;
lst1->LoadFromFile(OpenDialog1->FileName);
if(LabeledEdit5->Text.operator ==(lst1->Strings[0]+" "+lst1->Strings[1]))
  {
  Label7->Caption=lst1->Strings[0];
  Label8->Caption=lst1->Strings[1];
  Label9->Caption=lst1->Strings[2];
  Label10->Caption=lst1->Strings[3];
  Label11->Caption=dat->CurrentDate();
    MessageBox(hwnd,L"Data found",L"Information",MB_OK);
}
 
delete lst1;
delete dat;
 
}
 
}

mimicria · 03.05.2011, 12:00

TSearchRec sr; - где используется?

Итого все эти костыли заменяем на простую строчку:

C++

1	lst1->LoadFromFile(LabeledEdit5->Text+".txt");

@Programmer. · 03.05.2011, 12:16 **[ТС]**

mimicria,

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

TSearchRec sr; - где используется?

В FindClose(sr);

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

Итого все эти костыли заменяем на простую строчку:
Код C++1 lst1->LoadFromFile(LabeledEdit5->Text+".txt");

Вот ето помогло, больщое спасибо.
Sasha,
mimicria,
LK,
Всё ребята всем спасибо, сделано!

mimicria · 03.05.2011, 12:26

Сообщение от Programmer.

mimicria,

В FindClose(sr);

Для поиска используются FindFirstFile/FindNextFile, FindClose после них освобождает хэндл.
Так что вы создали и закрыли, не воспользовавшись О_о

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
		1
	Когда OpenDialog1 откроется, программа должна сама нажать на кнопку "Открыть" 03.05.2011, 02:19. Показов 3324. Ответов 10 Метки нет (Все метки) Добрый ноч форум! У меня такое ситуация: когда OpenDialog1 откроется программа должна сама нажать на кнопку "Открыть", что мне сделать чтоб ето так произайщло? Спс заранее 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	03.05.2011, 11:22 [ТС]	3
	LK, Сообщение от LK скажи: какая цель этой возни с опендиалогом в двух темах ? может, для решения твоей задачи есть более понятные/простые способы ? Ну может быт и ест другой вариант но для етого мне вес код переделать подркбуется, жалко както, спс за код щас попробую! 0

mimicria return (true); 1976 / 1111 / 221 Регистрация: 19.04.2011 Сообщений: 2,345
	03.05.2011, 11:27	4
	Смысл вообще тогда какой от компонента? Он нужен только для того, чтобы получить имя открываемого файла. Если вы и так знаете какой файл открыть - компонент не нужен. 1

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	03.05.2011, 11:41 [ТС]	5
	LK, Спасибо за код но мне для OpenDialog надо только автоматическая нажатия на "Открыть", остольное я всё сделал. Добавлено через 4 минуты mimicria, Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно) 0

mimicria return (true); 1976 / 1111 / 221 Регистрация: 19.04.2011 Сообщений: 2,345
	03.05.2011, 11:44	6
	Сообщение от Programmer. mimicria, Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно) Вот я и спрашиваю, зачем OpenDialog, если имя файла вы уже знаете. Итог его работы - OpenDialog->FileName, который потом используется в каком-нибудь FileOpen(). Вот и используйте Edit->Text вместо OpenDialog->FileName. 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	03.05.2011, 11:47	7
	Сообщение от Programmer. mimicria, Я задаю в Edit1 имя фаила и спомощию OpenDialog откриваю, когда нажимаю на Button Появляется OpenDialog уже выбранным фаилом (тем фаилом которою задаю в Edit1, и директория тоже выбранно) Из этого выше сказанного я могу тебе сказать, что тебе нужно в Edit1 указывать полный путь к файлу, а потом этот путь тебе надо впихнуть в OpenDialog1. Короче тут у тебя много лишнего на мой взгляд будет 1

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	03.05.2011, 12:16 [ТС]	10
	mimicria, Сообщение от mimicria TSearchRec sr; - где используется? В FindClose(sr); Сообщение от mimicria Итого все эти костыли заменяем на простую строчку: Код C++1 lst1->LoadFromFile(LabeledEdit5->Text+".txt"); Вот ето помогло, больщое спасибо. Sasha, mimicria, LK, Всё ребята всем спасибо, сделано! 0

mimicria return (true); 1976 / 1111 / 221 Регистрация: 19.04.2011 Сообщений: 2,345
	03.05.2011, 12:26	11
	Сообщение от Programmer. mimicria, В FindClose(sr); Для поиска используются FindFirstFile/FindNextFile, FindClose после них освобождает хэндл. Так что вы создали и закрыли, не воспользовавшись О_о 0