Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


ID: 17784, Delphi(5 or 6) executables in Windows XP...

by Marco Segundo Email: Anonymous


Problem with Delphi(5 or 6) executables in Windows XP...
Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 1.0  to 6.0 630 downloads
Copyright: No significant restrictions


Size: 5,380 bytes
Updated on Wed, 24 Apr 2002 14:24:59 GMT
Originally uploaded on Fri, 12 Apr 2002 13:58:06 GMT
SHA1 Hash: AAFA42C5C7BA42785198E8D0FA8C71111BE8EAE2
MD5 Hash: 6EAF572BFEB688F38A5FC8F3473D736A

    Explore the files in this upload

Description
When a processing is had where windows detects idleness(not responding), the messages as click and drag are set free in forms existing, losing until the modal style in one form shown the processing after.

The same being executed from run of delphi; or changed compatibility mode for 'Windows 98 / Windows ME' from compatiblity property(file properties), the problem does not exist.

PS: Sorry for the poor English.

***DFM***
object Form1: TForm1
Left = 192
Top = 114
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 176
Top = 112
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
end

***PAS***
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Time : TDateTime;
begin
//-- Click some times in Form after 10 seconds...
Time := Now;
//-- process 30 seconds...
while Now-Time < 30/(24*60*60) do begin
//-- during this process the form is set free...
end;
//-- modal wronged...
ShowMessage('awegadfhadfh');
end;

end.

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC04