Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Sobre o TObject em eventos Encontre agências semelhantes


Mikhalyov Dmitry   (2001-12-19 15:55) [0]

напишите мне тормозу на примере вызов события Edit1.OnChange из другого события или процедуры



MBo   (2001-12-19 16:00) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1008764059&n=0



gek   (2001-12-19 16:00) [2]

А че тебе еще написать а, может и прогу заодно?



Alex_Sudakov   (2001-12-19 16:01) [3]

if Assigned(Edit1.Onchange) then Edit1.Onchange(self);



Mick   (2001-12-19 16:02) [4]

Edit1.OnChange(Edit1)
Edit1.OnChange(nil)
Edit1.OnChange(Self)
Edit1.OnChange(Application)

Но все зависит от реализации самого обработчика
procedure Edit1.OnChange(Sender:TObject);



Mick   (2001-12-19 16:06) [5]

Sorry, конечно же так:
Edit1Change(Edit1)
......
Edit1Change(Application)




Alex_Sudakov   (2001-12-19 16:07) [6]

Чем тебе предыидущий вариант не понравился?



Mick   (2001-12-19 16:13) [7]

> Alex_Sudakov
В первом случае необходимо проверять свойство у Edit1 OnChange на nil.



Alex_Sudakov   (2001-12-19 17:01) [8]

Ну да, и что? Чем тогда тебе meu выриант не нравится?



Mick   (2001-12-19 17:09) [9]

Мне все нравится. Автор вопроса задал вопрос нечетко.
Мне показалось что он просто хочет повторно использовать код, реализованный у него в Form1.Edit1Change(Sender:TObject).



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.83 MB
Hora: 0.036 c
1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


14-22412
fishka
2001-11-12 14:50
2002.01.08
Componentes e sua localização para conveniência do operador (Delphi 3)


14-22407
KL
2001-11-03 00:47
2002.01.08
Teste Beta !!!


3-21944
MVova
2001-12-03 16:50
2002.01.08
Como encontrar o caminho para os arquivos?


3-21942
rotação
2001-12-03 12:19
2002.01.08
Pessoas amáveis ​​ajudam com o procedimento armazenado.





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol