Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как написать условие "форма показалась"? 
V
    Опции темы
Kbl4AH
Дата 30.10.2008, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Здравствуйте. У меня такой вопрос.
У меня на форме есть дерево и меню.
После нажатия на кнопочку я снимаю выделение с дерева: TreeView1.Selected.Selected:= False;.
Но мне нужно, чтобы действия при нажатии кнопочки выполнялись и при показе формы (Show).
Если в процедуру Form.Show я вставляю Button.Click, то у меня ошибка (я так понимаю, из-за снятия выделения, потому что форма еще не показалась и значит ничего не выделено). Как мне в процедуре Button.Click написать условие: если форма полностью отобразилась, то TreeView1.Selected.Selected:= False;?

PM MAIL ICQ   Вверх
morpheyushka
Дата 30.10.2008, 14:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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



 smile давай сначала - сколько всего форм, на какой снимается выделение, на какой на кнопочку нажимаешь?


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Kbl4AH
Дата 30.10.2008, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Цитата(morpheyushka @ 30.10.2008,  15:02)
smile давай сначала - сколько всего форм, на какой снимается выделение, на какой на кнопочку нажимаешь?

Походу, я суть ошибочных ситуаций плохо привожу(((
Мне нужно, чтобы работало ЭТО:
Код

procedure TFNotVisible.FormShow(Sender: TObject);
begin
  Spisok.Click;
end;

procedure TFNotVisible.SpisokClick(Sender: TObject);
begin
  // if форма отобразилась then TreeView1.Selected.Selected:= False;
end;


Это сообщение отредактировал(а) Kbl4AH - 30.10.2008, 14:06
PM MAIL ICQ   Вверх
morpheyushka
Дата 30.10.2008, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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



а ты уверен, что на момент отображения формы в TreeView1 есть выделенные элементы?


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Kbl4AH
Дата 30.10.2008, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Цитата(morpheyushka @ 30.10.2008,  15:22)
а ты уверен, что на момент отображения формы в TreeView1 есть выделенные элементы?

Конечно, ведь если бы выделения не было, то я не стал бы его снимать=)
Вобщем, есть.
PM MAIL ICQ   Вверх
THandle
Дата 30.10.2008, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Код

if Form1.Showing then
  //..

PM   Вверх
pseud
Дата 30.10.2008, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40



так:
Код

  if Self.Showing then
    TreeView1.Selected.Selected:= False;

а еще лучше так:
Код

  if TreeView1.CanFocus then
    TreeView1.Selected.Selected:= False;




--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Kbl4AH
Дата 30.10.2008, 14:33 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Цитата(THandle @ 30.10.2008,  15:24)
Код

if Form1.Showing then
  //..

С ним я сам пытался - ошибка

Добавлено через 33 секунды
Цитата(pseud @ 30.10.2008,  15:25)
а еще лучше так:
Код

  if TreeView1.CanFocus then
    TreeView1.Selected.Selected:= False;

Все равно ошибка(((
PM MAIL ICQ   Вверх
morpheyushka
Дата 30.10.2008, 14:41 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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



А что за ошибка?


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
aktuba
Дата 30.10.2008, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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



Цитата(pseud @ 30.10.2008,  15:25)
так:
Код

  if Self.Showing then
    TreeView1.Selected.Selected:= False;

а еще лучше так:
Код

  if TreeView1.CanFocus then
    TreeView1.Selected.Selected:= False;

А чем это отличается от
Код

  if Self.Visible then
    TreeView1.Selected.Selected:= False;



--------------------
user posted image
PM MAIL WWW Skype   Вверх
pseud
Дата 30.10.2008, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40



THandle, Хранитель Клуба потерял аватар.

Добавлено через 2 минуты и 58 секунд
Цитата(aktuba @  30.10.2008,  14:42 Найти цитируемый пост)
А чем это отличается от


смотри исходники, чем-то вроде отличается  smile 

а TreeView1.CanFocus так и ваще всем отличается

Добавлено через 3 минуты и 57 секунд
Цитата(Kbl4AH @  30.10.2008,  14:33 Найти цитируемый пост)
Все равно ошибка(((


morpheyushka, +1

таки да. ошибка-то в чем? где? когда?


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Kbl4AH
Дата 30.10.2008, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Вобщем, ошибка в выделенной строке, причем без разницы какое условие...

Присоединённый файл ( Кол-во скачиваний: 38 )
Присоединённый файл  Error.JPG 52,49 Kb
PM MAIL ICQ   Вверх
morpheyushka
Дата 30.10.2008, 14:56 (ссылка) |    (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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



Сорри за офтоп...но я "падцталом" от названия проекта - PaPoPKe smile  smile  smile 
5 балов

Добавлено через 2 минуты и 27 секунд
Цитата(Kbl4AH @  30.10.2008,  14:23 Найти цитируемый пост)
Конечно, ведь если бы выделения не было, то я не стал бы его снимать=)

Все же сомневаюсь по этому поводу...


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Kbl4AH
Дата 30.10.2008, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15



Цитата(morpheyushka @ 30.10.2008,  15:56)
Сорри за офтоп...но я "падцталом" от названия проекта - PaPoPKe smile  smile  smile 
5 балов

Без юмора жить, а тем более работать, - НЕЛЬЗЯ...
Я юморю аббревиатурами в названиях прог, благо пользователи в транслите плохо рубят)))
PaPoPKe - Права Пользователей Программы "Кадры"
PTaSHka - Print of Travelling SHeets
PuLPa - Перечень Льготных Профессий
WaHlAk - WareHouse Account
KoT - Копирование Таблиц и т.д.
Вот так я проги называю smile

Добавлено через 52 секунды
Цитата(morpheyushka @ 30.10.2008,  15:56)
Все же сомневаюсь по этому поводу...

Убираю условие, запускаю программу - выделение стоит на первом элементе дерева
PM MAIL ICQ   Вверх
morpheyushka
Дата 30.10.2008, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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



Цитата(Kbl4AH @  30.10.2008,  15:03 Найти цитируемый пост)
бираю условие, запускаю программу - выделение стоит на первом элементе дерева 

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


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0573 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.