как вывести

← →
любитель (2006-10-24 16:12) [0]

как правельно будет выводим дополнительную инфрмацию(поля которых нет в dbgrid) в дополн. форму при двойном клике

Dbtext1.DataSource:=Fmain.DataSource1 ; Dbtext2.DataSource:=Fmain.DataSource1 ; ...... Dbtext1.DataField:="Nom"; Dbtext2.DataField:="Date";

в таблице есть поле "KOD" - три значения 0 1 2 и как сделать
если было нажато на строчку где в поле "KOD" 0 то делалось
Image1.Visible:=true;
если 2 то Image2.Visible:=true;

пробывал
if Fmain.ADOQuery1.FieldByName("status").AsInteger=1 Then Image1.Visible:=true

вываливаеться по ошибке

← →
zdm © (2006-10-24 16:17) [1]

или я туплю, или .... вообщето события пиши на сам dbgrid

← →
zdm © (2006-10-24 16:17) [2]

oncellclick

← →
zdm © (2006-10-24 16:18) [3]

ondblclick

← →
zdm © (2006-10-24 16:20) [4]

а хотя ты параметры не словишь(лучше поюзай EHLib)
И вот статейка http://www.delphiplus.org/articles/components/multicolored_dbgrid/

← →
любитель (2006-10-24 16:23) [5]

Не я для dbgrida пишу так

procedure TFmain.dbgrid1DblClick(Sender: TObject);
begin
Fmore.showmodal;
end;

← →
любитель (2006-10-24 16:30) [6]

нет мне не в dbgrid надо вывести на другую форму в зависимости от значения поля показывать то или иную картинку

← →
ANB © (2006-10-24 16:50) [7]

> нет мне не в dbgrid надо вывести на другую форму в зависимости
> от значения поля показывать то или иную картинку

uses ?

← →
любитель (2006-10-24 17:04) [8]

все нормально показывает и работает выводит данные
но как только пытаюсь делать что бы показывалось изобр
сразу же ошибка
if Fmain.ADOQuery1.FieldByName("status").AsInteger=1 Then Image1.Visible:=true вот тут загвоздка

← →
Anatoly Podgoretsky © (2006-10-24 17:06) [9]

Нет тут ничего, кроме поманды и почему комментария без скобок комментария
Напиши так
Image1.Visible:=true; // вот тут загвоздка

← →
любитель (2006-10-24 17:15) [10]

Подробно
на главной форме пишу так
procedure TFmain.dbgrid1DblClick(Sender: TObject); begin Fmore.showmodal; end;

на второй форме

procedure TFmore.FormCreate(Sender: TObject); begin Dbtext1.DataSource:=Fmain.DataSource1 ; Dbtext2.DataSource:=Fmain.DataSource1 ; .... Dbtext1.DataField:="Nom"; Dbtext2.DataField:="Date"; if Fmain.ADOQuery1.FieldByName("status").AsInteger=0 Then begin Image1.Visible:=true
вываливаеться по ошибке

У тебя эта ошибка.

← →
Любитель (2006-10-25 10:26) [12]

Anatoly Podgoretsky [11]
когда прописываешь
if Fmain.ADOQuery1.FieldByName("status").AsInteger=0 Then begin Image1.Visible:=true

Project Doc.exe raised exception class EAccessViolation with message "Access violation at address 0049D013 in module "Doc.exe". Read of addresss 00000000"

> if Fmain.ADOQuery1.FieldByName("status").AsInteger=0 Then

И хто энто такой, этот Ваш Fmain?

Адрес 00000000 говорит, что у тебя не создан какой то объект.

как вывести Найти похожие ветки