Prost vapros za Delphi

18 отговора 4 прегледа
#1

Prost vapros za Delphi

Kak da nakaram da se izpylni sybitie (w Delphi4) pri natisnat left button na mishkata i dvijenie, t.e. sy4etavane na OnMouseMove i On Mouse Down? Ideiata e da se natisne butona na mishkata i sled tova da se otchete dvijenieto na mishkata po X i Y. Blagodaren shte sym i na tozi, koito mi kaje ekvivalenta na "Repeat Until Keypressed" ot Pascal-a w Delphi, t.e - da se izpylniava niakakvo sybitie, dokato ne natisna klavish. Ne se smeite na vyprosite, pls... ne mojah da nameria to4no tova v knijkite, a i Help-a mnoo-mnoo ne pomaga.
Отговор
в отговор на neznaesht #2

егати

Омаскари се клуба - вижте само колко идиотски въпроси се задават. Простотия до шия.
Отговор
в отговор на МиГ-31 #3

егати

dobre be, 4owek, w Hardware li da go zadam toia vapros? Ili da se obadia na Spravki? Pitam prosto, trizbva mi, ne se naduvajte, ebasi Moito li e prostotia? Sled kato znaesh, kakvo ti kostva da otgovorish? ebasi nadutoto dyrvo si. Programist. Negramoten otnosno bylgarskia ezik dori.
Отговор
в отговор на МиГ-31 #4

егати

Ако не можеш да помогнеш (или не искаш) по-добре не се обаждай. Има нужда човекът, пита. - за neznaesht: не ти ли върши работа OnActivate на формата и после да търсиш OnKeyPress?
Отговор
в отговор на neznaesht #5

Виж всичките...

...events за мишката. Сигурно има и OnMouseUp и други. Един прост цикъл може да ти е решенито. (не разбрах добре въпроса) . Но обезателно огледай всички events ! Сигурно ще ти се наложи да накараш формата да прихваща събитията преди другите компонети. Там сigurno има едно property въ формата. Не разбрах добре, но дали не става въпрос и за за OnDrag? Не се притеснявай много-много-много. Поздрави: Любо
Отговор
в отговор на neznaesht #6

Виж всичките...

По първия въпрос вероятно ще ти свърши работа OnDragOver на съответната контрола. type TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object; property OnDragOver: TDragOverEvent; По втория въпрос OnKeyPress не е точен аналог на Repeat Until Keypressed, но предполагам, че като помислиш ;) ще съумееш да направиш каквото ти е необходимо. type TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object; property OnKeyPress: TKeyPressEvent;
Отговор
в отговор на neznaesht #7

Виж всичките...

И не се притеснявай от хора, като МиГ-31. Те са се родили научени и никога никого не са питали :) За тях съществени са само въпросите които те не знаят.
Отговор
в отговор на МиГ-31 #8

klub MIG-31

Az predlagam da se napravi klub MIG-31. Drugoto mu ime moje da e prostotija.
Отговор
в отговор на neznaesht #9

Prost vapros za Delphi

можеш да видиш и OnMouseMove, там в единия от параметрите можеш да провериш, кои бутони на мишката са натиснати в момента
Отговор
в отговор на МиГ-31 #10

егати

Е сега разбирам какво му липсва на софтуера с който са организирани клубовете - няма кик и бан - това може да е полезно за такива като МиГ-31 (апропо - дори и ник-а си пошеш грешно).
Отговор
в отговор на NDeu #11

не-не, той май просто иска...

...да прелети през форма, с натиснат ляв бутон. При това положение сигурно му стига, да хване пьрво OnMouseDown , а после да следи кога го е пуснал. Или както казва Пламен, с OnMouseMove, ако може да гледа кога е пуснат левия бутон. ( Не работя с Делфи, но предполагам , че така се казват тези events). Даже, ако през това време ще следи и за други property и/или обекти, може би при fire на MouseDown, да продьлжи с OnMouseMove, с поглед към OnMouseDown)
Отговор
в отговор на Пламен #12

Prost vapros za Delphi

merci na wsi4ki za otgoworite... reshih si problema. Merci i za "Rage against МиГ-31". Hubavo pone, 4e ne ste wsi4ki takiva.
Отговор
в отговор на МиГ-31 #13

егати

Нямам коментар ! Не всички са се родили научени като теб. Btw интересно дали ти ако _случайно_ не знаеш нещо, дали няма да се срамуваш да попиташ ? А и още нещо - дали пък някой ще ти отговори ? Btw2. Все още не си ми отговорил на въпроса за взимане на имената та машините в локалната мрежа за което питах преди време. А и дали пък _можеш_ да отговориш ??
Отговор
в отговор на SomeOne #14

имената на машините в лм

ако стажа въпрос за под win виж WNetOpenEnum, WNetEnumResource ... и изобщо прегледай раздела за Windows Networking (WNet) в MSDN-а
Отговор
в отговор на Пламен #15

по този начин

може да се видят само машините, които имат share-нати ресурси. Ако нямат - enum-a няма да има резултат.
Отговор
в отговор на МиГ-31 #16

не се прави на тарикат

виж, какво точно е питал човека
Отговор
в отговор на Пламен #17

а специално за VB

HOWTO: List Local Network Connections with WNetEnumResources ID: Q177697 свирни ако нямаш MSDN, ще ти го пратя topik-a
Отговор
в отговор на Пламен #18

специално за VB

Благодаря Пламене. Пусни ми го този топик по е-майла на адрес: someone_bg@yahoo.com Благодаря предварително. Аз имам VB5, а MSDN е с VB6 доколкото знам. И за неразбралите пак въпроса (Copy & Paste): Как точно мога да "взема" във програма на VB това което виждам в Network Neighborhood, т.е. включените в момента компютри в моята workgrоup-а (а и има ли възможност и за проверка на други workgrоup-и ?). Интересуват ме ВСИЧКИ PC-та, а не само тези със share ресурси. И още веднъж благодаря за проявеното внимание. П.П. Май прочетох някъде нещо за бирата... Идеята не е лоша.
Отговор
в отговор на SomeOne #19

Ако искаш ...

... всички машини видиш, мисля, че WNet функциите няма да ти свършат много работа. Макар и да не съм сигурен, честно казано :) Ако все пак става - ОК, но ако не става, трябва да прибегнеш до метода, който използват игрите, ама какъв е той, един бог знае. Освен това на всяка от машините трябва да имаш response модул, който до отговаря на запитванията от другите. Въобще - сложна работа. Защо ти е това?
Отговор