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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Компактный код, Как избавится от повторов? 
:(
    Опции темы
Pavelbej
Дата 5.8.2005, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Этот код я очень часто использую. Можно как то засунуть его в процедуру или функцию и потом ее вызвать в нужном месте. Если да, то как? smile


Код

if memo1.tag=1 then
        begin
        case MessageDlg('Do you want to save?',mtConfirmation,mbYesNoCancel,0) of
        IDYes: Save1Click(sender);
        IDCancel: exit;
        end;
        end;
PM MAIL   Вверх
Z10
Дата 5.8.2005, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Код

procedure Tform1(на пример).ChangeProc;
begin
if memo1.tag=1 then    
        begin    
        case MessageDlg('Do you want to save?',mtConfirmation,mbYesNoCancel,0) of    
        IDYes: Save1Click(sender);    
        IDCancel: exit;    
        end;    
        end;
end;

smile
smile

Это сообщение отредактировал(а) Z10 - 5.8.2005, 18:32
PM ICQ   Вверх
Pavelbej
Дата 5.8.2005, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Проблема - Save1Click(sender). Не нравится этот sender.
PM MAIL   Вверх
markowww
Дата 5.8.2005, 20:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Если ты в Save1Click не используешь параметр Sender, то замени

IDYes: Save1Click(sender);

например на

IDYes: Save1Click(Self);

Это сообщение отредактировал(а) markowww - 5.8.2005, 20:25
PM MAIL   Вверх
Poseidon
Дата 5.8.2005, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(Pavelbej @ 5.8.2005, 18:51)
Проблема - Save1Click(sender). Не нравится этот sender.
А зачем тебе вызывать процедуру? На сколько я понял, Save1 - это кнопка (TButton в общем или аналог). Если так, то имитируй щелчок по этой кнопке:
Код
IDYes: Save1.Click




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 5.8.2005, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Цитата(Poseidon @ 5.8.2005, 22:34)
А зачем тебе вызывать процедуру? На сколько я понял, Save1 - это кнопка (TButton в общем или аналог). Если так, то имитируй щелчок по этой кнопке:

А не будет все-таки задержки? Быстрее по-моему саму процедуру вызвать...
PM   Вверх
Poseidon
Дата 5.8.2005, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Не думаю, что разница в скорости будет заметна. Но вот гемора с передаваемым переметром точно не будет. smile


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Pavelbej
Дата 6.8.2005, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 6
Отлично работает, спасибо вам огромное!
PM MAIL   Вверх
Medved
Дата 10.8.2005, 03:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Лучше в dll-ку запихай.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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