DELPHIÏûÏ¢µÄ´¦ÀíÁ÷³Ì
ÏûÏ¢µÄ´¦ÀíÁ÷³Ì£¬Á÷³ÌÈçÏ£º
ÆäÅÉ·¢´¦Àí¹ý³ÌÏêϸÈçÏ£º
×¢Ò⣺TWinControlÀïÃæWndProcÓе÷ÓÃϵͳAPI DefWindowProc,¸Ãº¯Êýµ÷ÓÃȱʡµÄ´°¿Ú¹ý³ÌÀ´ÎªÓ¦ÓóÌÐòûÓд¦ÀíµÄÈκδ°¿ÚÏûÏ¢ÌṩȱʡµÄ´¦Àí¡£¶øTWinControlÀïÃæDefaultHandlerÓÖµ÷ÓÃÁËϵͳAPI CallWindowProc£¬¸Ãº¯ÊýCallWindowProc½«ÏûÏ¢ÐÅÏ¢´«Ë͸øÖ¸¶¨µÄ´°¿Ú¹ý³Ì¡£
×îºóÏûÏ¢´¦Àí¹ý³Ì,ÒÔWM_LBUTTONDOWNÏûϢΪÀýÈçÏÂ:
ÕâÀï¾Í¿ÉÒÔ×¢ÒâÒ»ÏÂ:MouseDown()º¯ÊýÊÇÒ»¸ödynamic·½·¨,Òò´Ë¿ÉÒÔÏȸ²¸ÇMouseDown()º¯ÊýÀ´´¦Àí×Ô¼ºµÄһЩʼþ,È»ºóÓÃinheritedÀ´µ÷ÓÃMouseDown()À´Ö´ÐÐ×é¼þÀïÃæµÄOnMouseDown´úÂë
Ïà¹ØÎĵµ£º
delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
×÷Õß:seeker ÈÕÆÚ:2009-04-26
1£º{=====================´ò¿ª=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......
ÒÔÇ°Óùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬ÔÀ´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......
²Ü×æȨ
¡¡¡¡¹¤¾ßÌõÊdzÌÐòԱϲ»¶²ÉÓõÄ×é¼þ£¬Ëü¾ßÓмòÃ÷Ö±¹ÛµÄÍâÐΣ¬Äܹ»·½±ãÓû§Ö´ÐÐ×î³£ÓõŦÄÜ¡£Èç¹ûÄãʹÓÃdelphi3±à³Ì£¬ÄÇô±¾ÈËÏòÄãÍƼöcoolbar×é¼þ¡£ËüÊÇÒ»ÖÖ¹¦ÄܸüΪ·á¸»µÄ¹¤¾ßÌõ£¬ÓÃËü¿ÉÒÔʹ¶à¸ö´«Í³µÄ¹¤¾ßÌõ¡¢±à¼¿ò¡¢×éºÏÁбí¿ò¡¢Í¼ÏñÉõÖÁ¸ü¶àµÄ×é¼þ¼¯³Éµ½Ò»¸öͳһµÄcoolbarÖУ¬Ê¹µÃÓ¦ÓóÌÐò´°¿Ú¸üΪ½ô´Õ¡¢½çÃæ ......
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString
ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´Êµ
ÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨ ......
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......