VPF::BookMark - Форум программистов

Павел

Дата 30.12.2004, 21:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите начинаюшему программисту!
Как сделать закладку в таблице на одной кнопке, чтобы можно
было ставить закладку и возвращаться к ней нажатием одной кнопки.
Что-то у меня не получается, не работает проверка условий.
Мой e-mail: [email protected]

Код


procedure TForm1.oxButton5Click(Sender: TObject);
 var SavePlace: TBookMark;
Label m1, m2;
begin

if Not Table1.BookmarkValid(SavePlace)
then goto m1
else goto m2;

m1: SavePlace := Table1.GetBookmark;
 
 
m2: Table1.GotoBookmark(SavePlace);
 Table1.FreeBookmark(SavePlace);

end;

Это сообщение отредактировал(а) Vit - 4.1.2005, 17:19

Bes

Дата 31.12.2004, 07:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

У меня вроде так работает:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
     try
     if Table2.BookmarkValid(SavePlace)=false then
     SavePlace := Table2.GetBookmark else
     begin
          Table2.GotoBookmark(SavePlace);
          Table2.FreeBookmark(SavePlace);
     end;
     except
           SavePlace := Table2.GetBookmark
     end;
end;

только
SavePlace: TBookMark;
надо вынести в глобальные переменные.

ЗЫ а вообще довольно странная кнопка. smile

Это сообщение отредактировал(а) Vit - 4.1.2005, 17:19

Akella

Дата 4.1.2005, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

смотри свой топик http://forum.vingrad.ru/index.php?showtopic=38692
мой последний ответ, я все проверил, у меня пашет будь здоров

Vit

Дата 4.1.2005, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Bes, Павел - используйте обрамление кода тэгами!

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »