delphi-7

Form is hidden behind other forms when ShowModal is called

由 社会主义新天地 提交于 2020-01-19 04:46:13
问题 My application is based on modal forms. Main form opens one form with ShowModal, this form opens another with ShowModal, so we have stacked modal forms. There is sometimes a problem that when we call ShowModal in new form, it hides behind previous forms, instead of showing on top. After pressing alt+tab, form comes back to the top, but this is not good solution. Did You meet this problem and how did you handle it? EDIT : I use Delphi 7. 回答1: You didn't mention which version of Delphi... Newer

Why Application.OnException never runs?

由 前提是你 提交于 2020-01-17 17:15:03
问题 Problem summary: The method assigned to Application.OnException never runs when an unhandled exception occurs. I create a blank project with only this unit and place a single button on Unit.dfm (this is based on an official example) : // Unit1.pas // ********* type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure AppException(Sender: TObject; E: Exception); procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm}

Why Application.OnException never runs?

由 萝らか妹 提交于 2020-01-17 17:14:28
问题 Problem summary: The method assigned to Application.OnException never runs when an unhandled exception occurs. I create a blank project with only this unit and place a single button on Unit.dfm (this is based on an official example) : // Unit1.pas // ********* type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure AppException(Sender: TObject; E: Exception); procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm}

Help with Delphi 7, ADO, & MS Access SQL Statement

由 老子叫甜甜 提交于 2020-01-16 18:26:09
问题 I have three tables (in a MS Access Database 2000 file *.mdb) Knowledge id question answer Knowledge_Keywords id knowledgeid keywordsid Keywords id keyword Need to get all the keywords for a knowledge Select distinct keyword from keywords KW Join knowledge_keywords KKW on KKW.keywordid = KW.id Join Knowledge K on K.id = KKW.knowledgeid Where k.id = 10 of course 10 is a example, i actually use a parameter there Where k.id = :AKnowId'; and fill it in in code qry.Parameters.ParamByName('AKnowId'

I have a syntax error in my insert into statement

由 一曲冷凌霜 提交于 2020-01-16 04:28:25
问题 I'm using a MS Access database, with the following columns in the Admins table: Column Type ====== ==== Name Text Surname Text Dateadded Date/time Adminnumber Number(long integer) Password Text ID type Autonumber (Not sure if ID is relevant) This is my code but it keeps giving me a syntax error. ADOquery1.Active := false; adoquery1.sql.Text := 'insert into Admins(Name, surname, Adminnumber, Dateadded,password)Values('''+edit11.Text+''', '''+edit12.text+''', '''+edit13.Text+''', '''+edit14

Update Text Inside Page With Image

由 邮差的信 提交于 2020-01-15 11:08:10
问题 I am working with Delphi7 and TEmbeddedWB. I have some difficulty to update text of a page in twebbrowser. Because that webpage contains images. So Complete Html code is <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'#$D#$A' <HTML> <HEAD>'#$D#$A' <META content="text/html; charset=windows-1252" http-equiv=Content-Type>'#$D#$A' <META name=GENERATOR content="MSHTML 8.00.7601.17514"> </HEAD>'#$D#$A' <BODY>'#$D#$A' <DIV align=center><**IMG '#$D#$A'src="file:///C:/Program%20Files

Update Text Inside Page With Image

由 ╄→尐↘猪︶ㄣ 提交于 2020-01-15 11:08:09
问题 I am working with Delphi7 and TEmbeddedWB. I have some difficulty to update text of a page in twebbrowser. Because that webpage contains images. So Complete Html code is <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'#$D#$A' <HTML> <HEAD>'#$D#$A' <META content="text/html; charset=windows-1252" http-equiv=Content-Type>'#$D#$A' <META name=GENERATOR content="MSHTML 8.00.7601.17514"> </HEAD>'#$D#$A' <BODY>'#$D#$A' <DIV align=center><**IMG '#$D#$A'src="file:///C:/Program%20Files

How to delete a child node using OmniXML?

由 非 Y 不嫁゛ 提交于 2020-01-15 05:19:04
问题 I'd like to delete the line with pathid="2" in the rowpath section... <?xml version="1.0" encoding="utf-8"?> <LostPath Condition="Active" Selected="train.exe" FullPathOfSelected="D:\mygames\arcade\train\" Selected="0"> <rowdir Name="train.exe" GamePath="D:\mygames\arcade\train\" Selected="0" /> <rowdir Name="othelo.exe" GamePath="D:\mygames\arcade\othello\" Selected="3"/> <rowpath Name="train.exe" PathId="1" LevelPath="D:\mygames\arcade\train\levelpack1" levelsFound="27" /> <rowpath Name=

How to listen to microphone and detect sound loudness in Delphi 7

由 杀马特。学长 韩版系。学妹 提交于 2020-01-14 04:17:26
问题 I need a program to catch an event when microphone input gets louder than certain threshold value. So probably I need to constantly listen to mic, and somehow measure sound amplitude? Is it possible to do that in Delphi 7? 回答1: I recommend you to look AudioLab 回答2: I recommend you to use the BASS Audio Library http://www.un4seen.com/bass.html BASS is an audio library .. to provide developers with powerful stream (MP3.. OGG.. ) functions. All in a tiny DLL, under 100KB in size. it's very easy

How to disable all exception raising in Delphi?

由 风格不统一 提交于 2020-01-13 11:26:09
问题 Is there a way to disable all the dialog boxes when an exception or error occurs(like access violations, indy socket errors, timeouts etc.)? They are thrown sometimes in my program, but these errors aren't fatal in any way and can be ignored, just the dialog boxes are disturbing. I use Delphi 7. 回答1: If you just don't wont to show the exception window then go to: Tools/Options/Debugger Options/Language Exceptions and disable CheckBox Notify on language exceptions . That is walid for Delphi
订阅 delphi-7