| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как перенести выбранное обозначение в другую форму?
Fynjy © (2008-09-16 13:38:00)Здрасьте! Есть форма с DBGrid - таблица из 2 колонок (имя и обозначение), щелкаем правой кнопкой на каком нибудь обозначении, выскакивает PopupMenu, в котором нужно выбрать нужный пункт. Вот мне нужно сделать так, чтобы при выборе этого пункта выскакивало окно с Edit - ом (это окно уже есть), и в этом Edit- е было то обозначение, на котором щелкнули правой кнопкой. Сам вопрос вот в чем: как перенести выбранное обозначение в другую форму?
MsGuns (2008-09-16 16:00:00) [1]В справке Делфи есть занятная фишка-менюшка Hierarhy, читать которую весьма пользительно порою
Ega23 (2008-09-16 15:25:00) [2]thanckне так пишется. Впрочем, как и mutch
:о)
Fynjy (2008-09-16 15:16:00) [3]thanck you very mutch
Ega23 (2008-09-16 15:05:00) [4]
> да я еще совсеми этими делами на "вы", может объясните поподробнее.
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 14:56:00) [5]да я еще совсеми этими делами на "вы", может объясните поподробнее.
Ega23 (2008-09-16 14:55:00) [6]
> есть IBQuery и DataSource
F1 на каждом из них сам догадаешься нажать?
Fynjy (2008-09-16 14:54:00) [7]есть IBQuery и DataSource
Ega23 (2008-09-16 14:39:00) [8]
> а что такое DataSet? У меня ведь его нет.
Да ладно? А DBGrid что отображает? :)
Германн (2008-09-16 14:38:00) [9]
> Fynjy (16.09.08 14:25) [8]
>
> а что такое DataSet? У меня ведь его нет.
>
Украли? Вызывай милицию.
Fynjy (2008-09-16 14:25:00) [10]а что такое DataSet? У меня ведь его нет.
Dennis I. Komarov (2008-09-16 14:22:00) [11]
> Fynjy (16.09.08 13:46) [2]
Ну дальше залезаешь справку и смотришь чего там есть у TDBGrid
PS Я им не пользуюсь
> Azize © (16.09.08 13:48) [4]
Ну это уже от задачи зависит...
Fynjy (2008-09-16 14:03:00) [12]вот спасибо, хорошо!
Ega23 (2008-09-16 13:48:00) [13]Ну и, конечно, следить за тем, что
DataSet.Active and (not DataSet.IsEmpty)- это уже сам.
Azize (2008-09-16 13:48:00) [14]А дальше идёт ссылка на поле данной таблицы и никаких Cel там быть не должно если мне не изменяет память
Ega23 (2008-09-16 13:47:00) [15]
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;
Fynjy (2008-09-16 13:46:00) [16]вот как раз "дальше сам" меня и интересует! Что там после идет Cel или что-то там?
Dennis I. Komarov (2008-09-16 13:45:00) [17]Form2.Edit.Text:=Form1.DBGrid..... (дальше сам)
| |
