unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, sMaskEdit, sCustomComboEdit, sTooledit;
type
TForm4 = class(TForm)
sDateEdit1: TsDateEdit;
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FormActivate(Sender: TObject);
begin
// this creates an av:
Application.ProcessMessages;
end;
procedure TForm4.FormShow(Sender: TObject);
begin
// this would work:
//Application.ProcessMessages;
end;
end.
If you try to select a date, the mainform get's out of focus. As soon as you close the editor, the form will be re-focused and crash, i.e. AV.