Приветствую, всех жителей королевства!!! :)
есть один не большой вопрос, думаю вам он не составит сложностей... а вот мне очень поможет:
так вот как правильно написать If ?
есть Unit1.pas :
procedure TForm1.StringGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F1 then
begin
... //тут какие то действия
end;
if Key = VK_F2 then
begin
... //тут какие то действия
end;
if Key = VK_F3 then
begin
... //тут какие то действия
end;
end;
и Unit2.pas у которого есть edit1.
надо что бы в Unit2.pas была процедурка:
если ранее нажата F2 то edit1:='1' иначе edit1:='2'
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
29-01-2008 12:01 | Комментарий к предыдущим ответам
29-01-2008 10:42 | Комментарий к предыдущим ответам
1. Чаще всего достаточно просто акуратно спроектировать программу, исключить необоснованное дублирование отображаемых данных, выяснить что из чего вызывается, что из чего вытекает. Ну допустим Форма1 вызывает Форму2 как модальную (ShowModal), тогда после её закрытия Форма1 читает всё, "чтоможетпонадобиться" из Формы2. Форме2 ни чего не надо знать о форме1, т.к. она не обязательно именное из неё вызывается и вообще Формы1 может не существовать (получаем источник ошибок и бардака).
2. Если форма2 является немодальной, то в неё можно ввести событие, которое генерируется когда что-то изменилось. См. исходный код любого компонента (он же не знает кто его вызвал Форма1, или Форма2 или еще кто). Вызывающающая форма присваивает обработчик в котором читает всё "чтоможетпонадобиться" из Формы2.
3. Если формы меняют общий DataSet, то его кладем в общий TDataModule и спокойно обращаемся к нему из обоих форм. Все DBedit`ы сами всё отследят.
4. Наконец можно создать некий общий модуль с глобальными переменными к которому также могут обращаться все формы. Правда это требует некоторых усилий по синхронизации форм с измененными данными.
5. лучше задать этот вопрос отдельно на круглом столе.
29-01-2008 09:40 | Комментарий к предыдущим ответам
У меня вопрос к Сергею Рощину.
//Но это HE правильно с точки зрения организации программы!!!!!
Мне стыдно спрашивать, но всё-же, а как правильно? Как организовать обмен данными между несколькими формами приложения (соответственно несколькими модулями), если не указать в uses ссылки друг на друга?
Повеяло стариной: прямое использование функциональных клавиш для вызова форм я с времен DOSа не встречал.
Тип накладной удобно выбирать с помощью радиогруппы или комбобокса.
А запускать формирование по кнопке "сформировать накладную".
Будет и понятнее пользователю и проще в программировании.
Долго морщил затылок пытаясь понять суть проблемы...
unit Unit1;
interface
uses ..., Unit2;
....
procedure TForm1.StringGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
SuperProcedura(Key);
end;
unit Unit2;
interface
uses ...;
....
procedure SuperProcedura(Key: Word);
implementation
uses Unit1; //Если надо, чтобы можно было обратится
//к модулю, который уже использует этот
//модуль, то помещаем его в раздел implementation
//Но это HE правильно с точки зрения организации программы!!!!!
.....
procedure SuperProcedura(Key: Word);
begin
case Key of
VK_F1: begin
edit1 := 'Нажато F1'; //Что такое edit1 "..."?
end;
VK_F2: begin
edit1 := 'Нажато F2';
end;
end;
end;
end;
29-01-2008 07:50 | Вопрос к автору: запрос дополнительной информации
А вы не знаете, куда я очки положил? :)))
Как мы можем сказать, как вам следует обращаться в написанном вами же коде, не видя ваш код? Угадать? Ну что-ж, я попробовал угадать. Неудачно.
>>>Поэтому в большинстве случаев подойдёт код Form2.Edit1.Text := 'gg';
не так не пойдет...пробывала... так на все накладные присваивается одно и тоже значение..
ну вот есть программа формирования накладных. появляется список товаров, я выбираю товар и ставлю необходимое колчество. после чего выбираю тип накладной напр. Накл1 НаклТ или НаклН, что соответсвует кнопкам ф1 ф2 ф3(по которым открываются новые формы),т.е.:
Накл1 - F1
НаклТ - F2
НаклН - F3
это все указано в Unit1
в Unit2 формируется уже сам отчет,и тут я должна указать параметр который я ввожу в Edit1,например:
если я нажала ф1 то в Edit1 должно быть "имя"
если я нажала ф2 то в Edit1 должно быть "адрес"
если я нажала ф3 то в Edit1 должно быть "тел".
вот. как мне правильно написать в этом случае процедурку? :(
>>> Unit2.pas у которого есть edit1
Наверное, всё-таки, в Unit2 у вас объявлена какая-нибудь Form2, а уж Edit1 лежит на ней.
А ещё, скорее всего, эту форму из автосоздаваемых вы так и не удалили.
Поэтому в большинстве случаев подойдёт код Form2.Edit1.Text := 'gg';
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
