[delphicoding]

Здравствуйте!

Ковыряю формы, возникло несколько вопросов, которые не могу решить уже несколько дней, все параметры и код перепроверял, но видимо где-то что-то неправильно:
1. В закладке есть 4 TPanel, в каждой по 4-10 полей разного типа. Курсор при нажатии Tab в одном месте переходит неправильно, не на следующее поле в этой панели которое имеет TabOrder+1, а на следующий такой же объект TJvDBComboBox вообще в другой панели!
2. Есть две похожие формы, на обеих есть одинаковый (скопированный) объект - TDBCheckBox - в одной форме при открытии (форма без данных) - он выключен, а на другой - включен... нужно чтобы был отключен... фантастика какая-то!
3. Процедура открытия одного нового окна из двух возможных с передачей в это новое окно значения переменной, которая объявлена в том окне, но Delphi всё время ругается на код, не понимаю почему и как же написать правильно?!:

Код:

Procedure ShowF(aGroupId:LongInt;aIsShift:boolean);
 var P:Tform;
begin
   case aGroupId of
    1: begin
        P:=TfBaseForm;
        P.Create(Application);
        P.VarTemp := not aIsShift; (!)
не может найти в Tform переменную VarTemp
=====================  вариант 2
   case aGroupId of
    1: begin
        P:=TfBaseForm.Create(Application);
        If aIsShift=True
            Then TfBaseForm.VarTemp:=False (!)
            Else TfBaseForm.TfBaseForm:=True;
       end;
ругается что ждал метод
===================== вариант 3
 var P:variant и string
не нравится присвоение имени формы varinat, если string не работают методы формы вообще

Я понимаю, что не видя проект сложно сказать наверняка, тем более, что все доступные свойства я перепроверил уже н-раз. Тем не менее, возможно Ваш профессиональный опыт поможет Вам выдвинуть предположения с чем эти баги могут быть связаны?

[ryderx34]

Код:

var 
  P: TfBaseForm;

P := TfBaseForm.Create(Application);
P.VarTemp := not aIsShift;

[delphicoding]

одного нового окна из двух возможных
Указывая вначале P:= одному из двух окон, затем не получается присвоить второе окно... вот:

var P:TfBaseFormA;
begin
case aGroupId of
1: P:=TfBaseFormA; (!)
2: P:=TfBaseFormB;
end;
P.Create(Application);
P.VarTemp := not aIsShift;

также не пашет, ругается, что в указанной строке - Incompatible types: 'TfBaseFormA' and '(class of TfBaseFormA)'. - даже простым языком это звучит как бред, уж не говоря про код... короче я фигею от этой тупой ситуации и уже не представляю себе как правильно это реализовать ?!?!?!

[delphicoding]

4. Как TJvDBComboBox или TDBComboBox указать из кода программы, чтобы он ВЫБРАЛ И ПОКАЗАЛ значение из своего списка? Строка cbSpisok.ItemIndex:=1 увы ничего не делает.

[delphicoding]

5. Нужно назначить событие на момент формы ввода данных. Какое событие-момент подойдёт, чтобы обработка запускалась: а) при первом открытии пустой формы и б) когда данные отправляются в БД и форма ввода очищается и в) когда форма открывается загружая во все поля данные из БД ?
Какое выбрать событие формы? AfterOpen? Или лучше что-то другое? Может из событий БД?

[ryderx34]

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

одного нового окна из двух возможных

А, ну тогда:

Код:

var 
  P: TForm;
begin
  case aGroupId of
  1: begin
    P := TfBaseFormA.Create(Application);
    (P as TfBaseFormA).VarTemp := not aIsShift;
  end;
  2: begin
    P := TfBaseFormB.Create(Application);
    (P as TfBaseFormB).VarTemp := not aIsShift;
  end;
end;

[delphicoding]

Я так писать не буду, тк я не могу логически понять этот бредовый код "P as TfBaseFormA". AS в анлгийском языка означает КАК, но мне не нужно КАК, мне нужно передать В форму массу значений, а не В ФОРМУ Х КАК В ФОРМУ У. В общем код отвратителен. Сделал с двумя переменными вначале, хотя это тоже кривизна. Проблема в том, что в "очень удобном Delphi" изначально плохо продуман синтаксис - надо было разделить написание объектов и свойств, тогда код бы выглядел намного лучше и не было этой проблемы, когда вроде бы как всё написано правильно, но, увы, программа так работать не может... вобщем должно быть типа такого:

Код:

var P:TForm; (ведь КЛАСС переменной - это именно ФОРМА)
 begin
 case aGroupId of
 1: P:=TfBaseFormA; (уточняем название формы из которой создаём окно)
 2: P:=TfBaseFormB; (также)
 end;
 P.[Create(Application)]; (о да, свойство и функция объекта это на самом деле совсем не тоже самое, что путь к объекту, поэтому СТОИЛО ОТДЕЛИТЬ СВОЙСТВА СКОБОЧКАМИ, товарищи разработчики Delphi)
 P.VarTemp := not aIsShift; (тут просто через точку, тк это обычный путь к объекту-переменной)

[angvelem]

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

Я так писать не буду, тк я не могу логически понять этот бредовый код ...

Это не бредовый код, это приведение к типу, читайте справку прежде чем высказывать бредовые слова.

[delphicoding]

Посмотрите на любую ОС или интернет! Нигде не отделяют параметры/свойства объекта также, как путь объекта! Это очень бредовая тема из паскаля из-за которой и возникла заморочка в этой теме. Также по этой же причине в редакторе Delphi нет подсветки свойств объектов, тк из-за такого бредового синтаксиса "всё через точку" свойства очень сложно отличить от объектов! Примеры:
Есть: delphisources.ru/forum/showthread.php?p=84960#post84960
Аля Delphi: delphisources.ru/forum/showthread.php/p/84960/post/84960
Есть: C:\Windows\System32\rundll32.exe -t -d 11 +sys.dll
Аля Delphi: C:\Windows\System32\rundll32\exe\t\d11\sys\dll
Надеюсь понятно...

[Viajero]

Уважаемый delphicoding. Вы уже не в первой теме поносите Delphi и его синтаксис. Ну неужели же вы думаете что от ваших постов синтаксис кто нибудь изменит. Вам тогда в Embarcadero батенька надо обращаться, а не на наш форум. Синтаксис - это правила, я бы сказал устав. А устав не может быть ни хорошим ни плохим, устав требует бесприкословного исполнения.
Вам следует немножко подучить Delphi, и его объектную систему в частности. Вот то что вы написали

ведь КЛАСС переменной - это именно ФОРМА

вот это действительно бред. Форма это объект. А вы хоть понимаете разницу между классом и объектом.
Говоря грубым языком:
- объект это переменная,
- класс это тип.
Тип это описание переменной, но никак не сама переменная.
А для того чтобы программист не путал классы с объектами придумали в индетификаторах классов Delphi ставить префикс Т.

Написать

Код:

P:=TfBaseFormA;

тоже самое что

Код:

А:=Integer;

А может быть равно 1 или 2 или 25, но не Integer, т к Integer это описание.

Возможно вы раньше программировали на VB. A VB хорошо пудрит мозги, смешивая эти понятия.

[delphicoding]

Синтаксис - это правила, я бы сказал устав. А устав не может быть ни хорошим ни плохим, устав требует бесприкословного исполнения.

Красавчик стиль аватарки выдерживаешь?
Даже если отбросить синтаксис, всё равно в Delphi увы многое нелогично и неудобно...

вот это действительно бред. Форма это объект. А вы хоть понимаете разницу между классом и объектом.

Выдернули часть фразы, там была речь о "var P=TForm" из чего получается, что переменной P присваивается КЛАСС ФОРМА, точно как при var T:string переменой T присваивается КЛАСС СТРОКА. Всё понятно?

Таки почему нельзя по ходу кода присвоить P:=TfBaseFormB или P:=fBaseFormB ?! Ведь согласно вашей логике A:=integer и затем МОЖНО ПРИСВОИТЬ ЧИСЛО, то есть нечто, подходящее по КЛАССУ. Тогда почему в коде не пашет конструкция вида var P:Tform begin P:=TfBaseFormB ???

[Viajero]

Ведь согласно вашей логике A:=integer

Почитайте лучше, я как раз писал, что так делать ни в коем разе нельзя.

А может быть равно 1 или 2 или 25, но не Integer, т к Integer это описание.

И зачем вы задаёте вопросы на форуме, если и так лучше всех всё знаете. Вам же конкретно отвечают, как должно быть согласно правилам и синтаксису Delphi.

переменной P присваивается КЛАСС ФОРМА

Форма это не класс, а объект, ещё раз вам говорю, и переменной класс присваиватся не может.

[delphicoding]

как должно быть согласно правилам и синтаксису Delphi.

Вы не правильно меня поняли. Я же с этим не спорю! Ну да, правила, ну да, синтаксис - ну да, такие какие сделали. Я просто утверждаю, что многое в синтаксисе сделано криво!

Форма это не класс, а объект, ещё раз вам говорю, и переменной класс присваиватся не может.

Глупость какая-то, зачем так делать-то?! И можно ли как-то вообще в Delphi создавать переменные определяемые КЛАССАМИ? Или классы определяются только в отдельном юните в первой строке вида TfBaseForm = class(TForm) но нигде более???

Всё равно это не аналогично. Смотрите сами:
var S:string - переменная S строка, пока-что очевидно пустая
var T:TForm - переменная Т форма, пока-что очевидно пустая
далее в коде:
S:='текст' - заполнили строку "текстом"
T:=TfBaseForm - должен был бы работать так - заполнять TForm(пустую/несуществующую) форму объектами из TfBaseForm или вкладывать форму TfBaseForm в TForm. Но не пашет же ни так ни сяк.

[Viajero]

T:=TfBaseForm - должен был бы работать так - заполнять TForm(пустую/несуществующую) форму объектами из TfBaseForm или вкладывать форму TfBaseForm в TForm. Но не пашет же ни так ни сяк.

Я же говорю, почитать вам надо что-нибудь
http://www.delphisources.ru/forum/showthread.php?t=6221
Объект создаётся с помощью метода Create (который является методом класса, а не объекта)
Правильно:
T:= TfBaseForm.Create(Application);

[delphicoding]

Наверно надо почитать, но это сейчас невозможно.
Спасибо за терпение!

Вопросы 3,4,5 решены более менее.

Есть ли какие-нибудь предположения по вопросам 1,2 ?