| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как реализовать в Delphi аналог процедуры read?

Morrison ©   (2004-06-11 21:57:00) 

Мастера Делфей! Помогите новичку!

Не могу придумать как написать функцию (или хотя бы аналог процедуры read), которая возвращает string путем создания новой простой формы (label, edit две кнопки ОК и Cancel).

---

Palladin   (2004-06-11 23:18:00) [1]

изучи свойства кнопок

---

Morrison   (2004-06-11 23:01:00) [2]

Вопрос по поводу
Result := ShowModal = mrOK;
Каким образом система догадывается, что кнопка btnOk и есть та самая mrOk?

---

Mim1   (2004-06-11 22:48:00) [3]

> [13] Anatoly Podgoretsky ©   (11.06.04 22:33)
> Morrison ©   (11.06.04 22:28) [10]
> Какой может быть выхов в виде функции если у нее минимум
> два значения, при нажатии кнопки Ok или Cancel, ведь второе
> предполагает отсутствие результата


Abort? (silent exception)

---

Morrison   (2004-06-11 22:42:00) [4]

Согласен, лажанулся.

Вся соль оказалась в функции ShowModal. Вот ее-то мне и не хватало для спокойной жизни...

---

Anatoly Podgoretsky   (2004-06-11 22:39:00) [5]

Принципиально вче, что ты заявляешь как критерий, для этого смотрим сообщение [10]

---

Morrison   (2004-06-11 22:35:00) [6]

Anatoly Podgoretsky ©, это не принципиально.

---

Morrison   (2004-06-11 22:33:00) [7]

Спасибо!

---

Anatoly Podgoretsky   (2004-06-11 22:33:00) [8]

Morrison ©   (11.06.04 22:28) [10]
Какой может быть выхов в виде функции если у нее минимум два значения, при нажатии кнопки Ok или Cancel, ведь второе предполагает отсутствие результата

---

Palladin   (2004-06-11 22:31:00) [9]

> Morrison ©   (11.06.04 22:28) [10]

Чуть чуть изменить то что выше...

---

Palladin   (2004-06-11 22:29:00) [10]


type
 TMyInputQuery = class(TForm)
   editInput: TEdit;
   btnOK: TButton;
   btnCancel: TButton;
   lblCaption: TLabel;
 end;

Function MyInputQuery(Const p_strCation,p_strPrompt:String;Var rp_strResult:String):Boolean;
implementation

Function MyInputQuery(Const p_strCation,p_strPrompt:String;Var rp_strResult:String):Boolean;
Begin
With TMyInputQuery.Create(Application) Do
 Try
  Caption:=p_strCation;
  lblCaption.Caption:=p_strPrompt;
  editInput.Text:=rp_strResult;
  Result:=ShowModal=mrOK;
  If Result Then rp_strResult:=editInput.Text;
 Finally
  Free;
 End;
End;



---

Morrison   (2004-06-11 22:28:00) [11]

Это понятно. Имелась ввиду универсальная функция, создающая такую форму и возвращающая переменную типа string.
Чтобы можно было написать что-то типа:
MyComboBox.Items.Add(<требуемая функция>);

---

Anatoly Podgoretsky   (2004-06-11 22:24:00) [12]

Да просто действия по закрытию или отмене можно задать через свойства кнопок.

---

Morrison   (2004-06-11 22:22:00) [13]

Почему же не требуется?

---

Anatoly Podgoretsky   (2004-06-11 22:20:00) [14]

Форма, Tlabel, Redit и две кнопки ОК и Cancel. Код писать не требуется, достаточно только рисования.

---

Morrison   (2004-06-11 22:19:00) [15]

Это конечно хорошо, что такая штука уже есть, но было бы интересно узнать, как ее написать вручную.

---

Palladin   (2004-06-11 22:16:00) [16]

Ага... таки удосужился :)

---

Palladin   (2004-06-11 22:16:00) [17]

Ламером не ламером, это еще не ясно... но вот справку посмотреть не удосужился...

---

Morrison   (2004-06-11 22:15:00) [18]

Ага... Теперь понял, спасибо :)

---

Morrison   (2004-06-11 22:13:00) [19]

Не сочтите ламером, но я ничего не понял...

---

DrPass   (2004-06-11 22:06:00) [20]

InputBox и InputQuery?

---

Наверх