Курсорите на Windows?
6 отговора
164 прегледа
Курсорите на Windows?
Как мога да заредя в моя променлива от тип TCursor някой от
курсорите на Windows? Например на Label да присвоя курсора на Windows, който в ControlPanel се казва Link Select или някой друг от този списък.
Благодаря ви предварително!
курсорите на Windows? Например на Label да присвоя курсора на Windows, който в ControlPanel се казва Link Select или някой друг от този списък.
Благодаря ви предварително!
Re: Курсорите на Windows?
погледни TScreen.Cursors - това е списъка с курсорите - мисля 4е има и пример за това как да се ползва и зарежда курсор !!!
---
Е т'ва е живот!
---
Е т'ва е живот!
Re: Курсорите на Windows?
Cursor := TCursor.Create;
try
Cursor.Handle := LoadCursor(0, IDC_ARROW); //vij v SDK help konstantite za drugite kursori
...
finally
Cursor.Free;
end;
by Wise Guy
[email protected]
try
Cursor.Handle := LoadCursor(0, IDC_ARROW); //vij v SDK help konstantite za drugite kursori
...
finally
Cursor.Free;
end;
by Wise Guy
[email protected]
Re: Пак "Курсорите на Windows?"...
Значи правя следното - написал съм си компонент от TCustomLabel, който взема
Caption - а си и го стартира в браузъра по подразбиране, тоест линк към уеб страница или поща като става активен когато се мине върху него и т.н. един вид симулация на линковете в уеб страниците. Но искам да се появява курсора който е в ControlPanel с име "Link Select" така че на различните компютри да се показва този който е избрал потребителя съответно. По тези начини като че ли това не може да се направи това! Поне аз не успях :(( Надявам се че не сте се изнервили от дългото ми пояснение.
Caption - а си и го стартира в браузъра по подразбиране, тоест линк към уеб страница или поща като става активен когато се мине върху него и т.н. един вид симулация на линковете в уеб страниците. Но искам да се появява курсора който е в ControlPanel с име "Link Select" така че на различните компютри да се показва този който е избрал потребителя съответно. По тези начини като че ли това не може да се направи това! Поне аз не успях :(( Надявам се че не сте се изнервили от дългото ми пояснение.
Re: Пак "Курсорите на Windows?"...
uff..
slagash si edin obiknoven TLabel i :
Font.Color - Blue
Cursor - crHandPoint
OnMouseEnter:
label1.font.style := label1.font.style + [fsUnderline];
OnMouseLeave:
label1.font.style := label1.font.style - [fsUnderline];
by Wise Guy
[email protected]
slagash si edin obiknoven TLabel i :
Font.Color - Blue
Cursor - crHandPoint
OnMouseEnter:
label1.font.style := label1.font.style + [fsUnderline];
OnMouseLeave:
label1.font.style := label1.font.style - [fsUnderline];
by Wise Guy
[email protected]
Re: Пак "Курсорите на Windows?"...
"OnMouseEnter:
label1.font.style := label1.font.style + [fsUnderline..."
С това нямам проблеми компонента ми работи така както искам, въпросами ми беше съвсем друг. Тези примери слагат на етикета курсор който е малка посочваща ръка и той е този който ти се предоставя от Delphi. Така програмата независимо на кой компютър е винаги ще бъде този кърсор на този етикет! А в web страниците в InternetExplorer или друг браузър на активния линк се показва курсора от ControlPanel Linc Select, който е различен от този на Delphi! Ako аз от Control Panel си сменя курсора Linc Select на примерно малка черна стрелка в моята прокрама "активния" ми етикет ще продълйава да показва посочваща ръка за кърсор, което аз не искам. Аз искам етикета ДА НЕ показва курсора crHandPoint на Delphi а този който е LincSelect в ControlPanel, в моя случай етикета при преминаване над него трябва да поразва като курсор малка черна стрелка!!! Това ми е точно въпроса.
label1.font.style := label1.font.style + [fsUnderline..."
С това нямам проблеми компонента ми работи така както искам, въпросами ми беше съвсем друг. Тези примери слагат на етикета курсор който е малка посочваща ръка и той е този който ти се предоставя от Delphi. Така програмата независимо на кой компютър е винаги ще бъде този кърсор на този етикет! А в web страниците в InternetExplorer или друг браузър на активния линк се показва курсора от ControlPanel Linc Select, който е различен от този на Delphi! Ako аз от Control Panel си сменя курсора Linc Select на примерно малка черна стрелка в моята прокрама "активния" ми етикет ще продълйава да показва посочваща ръка за кърсор, което аз не искам. Аз искам етикета ДА НЕ показва курсора crHandPoint на Delphi а този който е LincSelect в ControlPanel, в моя случай етикета при преминаване над него трябва да поразва като курсор малка черна стрелка!!! Това ми е точно въпроса.
Re: Пак "Курсорите на Windows?"...
Ами човека го е казал в началото
Cursor.Handle := LoadCursor(0, IDC_ARROW);
Това ти зарежда курсор - значи трябва да си "нарисуваш" курсор, да го добавиш към ресурсите на програмата - и при зареждането и - да си инициализараш курсора така 4е да го зареди от ресурсите - просто сменяш IDC_ARROW с идентификатора на ресурса под който си записал съответния курсор
Ей ама вземи малко да про4етеш книги - това го има в която и да хванеш книга де!!!!
---
Е т'ва е живот!
Cursor.Handle := LoadCursor(0, IDC_ARROW);
Това ти зарежда курсор - значи трябва да си "нарисуваш" курсор, да го добавиш към ресурсите на програмата - и при зареждането и - да си инициализараш курсора така 4е да го зареди от ресурсите - просто сменяш IDC_ARROW с идентификатора на ресурса под който си записал съответния курсор
Ей ама вземи малко да про4етеш книги - това го има в която и да хванеш книга де!!!!
---
Е т'ва е живот!