как перенести выбранное обозначение в другую форму?

← →
Fynjy (2008-09-16 13:38) [0]

Здрасьте! Есть форма с DBGrid - таблица из 2 колонок (имя и обозначение), щелкаем правой кнопкой на каком нибудь обозначении, выскакивает PopupMenu, в котором нужно выбрать нужный пункт. Вот мне нужно сделать так, чтобы при выборе этого пункта выскакивало окно с Edit - ом (это окно уже есть), и в этом Edit- е было то обозначение, на котором щелкнули правой кнопкой. Сам вопрос вот в чем: как перенести выбранное обозначение в другую форму?

← →
Dennis I. Komarov © (2008-09-16 13:45) [1]

Form2.Edit.Text:=Form1.DBGrid..... (дальше сам)

← →
Fynjy (2008-09-16 13:46) [2]

вот как раз "дальше сам" меня и интересует! Что там после идет Cel или что-то там?

← →
Ega23 © (2008-09-16 13:47) [3]

TPopupForm = class (TForm) Edit1 : TEdit; private function GetEditText : string; procedure SetEditText(const Value : string); public property EditText : string read GetEditText write SetEditText; end; function TPopupForm.GetEditText : string; begin Result := Edit1.Text; end; procedure TPopupForm.SetEditText(const Value : string); begin Edit1.Text := Value; end;

Соответственно, вызов:

procedure TForm1.ShowPopupForm; var frmPopup : TPopupForm; begin Application.CreateForm(TPopupForm, frmPopup); try frm.EditText := DataSet.FiedlByName(....).AsString; frm.ShowModal; ShowMessage(frm.EditText); finally frmPopup.Free; end; end;

← →
Azize © (2008-09-16 13:48) [4]

А дальше идёт ссылка на поле данной таблицы и никаких Cel там быть не должно если мне не изменяет память

← →
Ega23 © (2008-09-16 13:48) [5]

Ну и, конечно, следить за тем, что DataSet.Active and (not DataSet.IsEmpty) - это уже сам.

← →
Fynjy (2008-09-16 14:03) [6]

вот спасибо, хорошо!

← →
Dennis I. Komarov © (2008-09-16 14:22) [7]

> Fynjy (16.09.08 13:46) [2]

Ну дальше залезаешь справку и смотришь чего там есть у TDBGrid
PS Я им не пользуюсь

> Azize © (16.09.08 13:48) [4]

Ну это уже от задачи зависит...

← →
Fynjy (2008-09-16 14:25) [8]

а что такое DataSet? У меня ведь его нет.

← →
Германн © (2008-09-16 14:38) [9]

> Fynjy (16.09.08 14:25) [8]
>
> а что такое DataSet? У меня ведь его нет.
>

Украли? Вызывай милицию.

← →
Ega23 © (2008-09-16 14:39) [10]

> а что такое DataSet? У меня ведь его нет.

Да ладно? А DBGrid что отображает? :)

← →
Fynjy (2008-09-16 14:54) [11]

есть IBQuery и DataSource

← →
Ega23 © (2008-09-16 14:55) [12]

> есть IBQuery и DataSource

F1 на каждом из них сам догадаешься нажать?

← →
Fynjy (2008-09-16 14:56) [13]

да я еще совсеми этими делами на "вы", может объясните поподробнее.

> да я еще совсеми этими делами на "вы", может объясните поподробнее.

TIBQuery TIBQuery executes an InterBase SQL statement. Unit IBQuery Description Use TIBQuery to access one or more tables in a database using SQL statements. The TIBQuery component provides a read-only dataset, and adapts well to the InterBase client/server environment. To update the result set that TIBQuery represents, use this component in conjunction with a TIBUpdateSQL component. Query components are useful because they can Access more than one table at a time (called a “join” in SQL). Automatically access a subset of rows and columns in its underlying table(s), rather than always returning all rows and columns. Note: TIBQuery is of particular importance to the development of scalable database applications. If there is any chance that an application built to run against local databases will be scaled to a remote SQL database server in the future, use TIBQuery components from the start to ensure easier scaling later.

← →
Fynjy (2008-09-16 15:16) [15]

thanck you very mutch

thanck не так пишется. Впрочем, как и mutch
:о)

В справке Делфи есть занятная фишка-менюшка Hierarhy, читать которую весьма пользительно порою

как перенести выбранное обозначение в другую форму? Найти похожие ветки