Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.09;
Скачать: CL | DM;

Вниз

два грида на TNotebook, как сделать with или присвоение   Найти похожие ветки 

 
КомофОнСамый   (2004-02-10 13:55) [0]

дело в том что есть кнопочка Подсчет, и так как реализация подсчета одинакова нужно сделать следующее

procedure TForm1.mnCountClick(Sender:TObject);
var
myGridPtr:TDBGrid;
begin
if(Notebook.ActivePage="Doc")then myGridPtr:=DBGridDoc
else myGridPtr:=DBGridTurn;
with(myGridPtr)do
begin
...//далее реализация поиска.


но почему то так не получается :(


 
Deniz ©   (2004-02-10 14:04) [1]

Что не получается?


 
КомофОнСамый   (2004-02-10 14:11) [2]

ой. сорри - оказся ошибка была в другом.



Страницы: 1 вся ветка

Текущий архив: 2004.03.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-25767
Alexis
2004-02-26 15:27
2004.03.09
Win элементы в Turbo Pascal и Free Pascal


14-25933
Sniper-Max
2004-01-31 08:46
2004.03.09
Помогите!!! У меня странно комп перезагружается... сам!!!


1-25747
Soft
2004-02-26 02:37
2004.03.09
Передача Pchar через стек и возврат памяти.


1-25781
Danilin
2004-02-25 13:30
2004.03.09
Странное поведение TIniFile


1-25822
Berezne
2004-02-25 16:56
2004.03.09
Вопрос по DLL