• Registered: 2014-09-06
  • Posts: 805

Topic: error message

Hi great news about the new version. But before we can download the 4th version please release the 3.7
I get a error message. I understand wy I get it but how can I avoid it, or how can I put my own error message. Is it possible with the new procedure (TRANSLATE)?

https://i.imgur.com/4LnZcxD.png

  • Registered: 2014-02-14
  • Posts: 10,294

Re: error message

Hello.


Every component have property CanFocus, so you can check, it's possible to set focus for the component or not, example:

if Form1.Button1.CanFocus  then Form1.Button1.SetFocus else ShowMessage('Your message');

Version 3.7 will not be released.

Dmitry.

3 Reply by v_pozidis (edited by v_pozidis 2017-11-09 06:36:16)

  • Registered: 2014-09-06
  • Posts: 805

Re: error message

I do not understand what Canfocus and SetFocus do.
In my software I get the message  "Cannot make a visible window modal". It's because I call the same form that it's already open.
How can I avoid this message?

It;s a pity that there will be no release for 3.7 (Especially for us,  the users with Minor Updates.
Maybe there will be a discount coupon for the new version 4

Thanks's

  • Registered: 2014-02-14
  • Posts: 10,294

Re: error message

v_pozidis wrote:

I do not understand what Canfocus and SetFocus do.
In my software I get the message  "Cannot make a visible window modal". It's because I call the same form that it's already open.
How can I avoid this message?


How exactly you call the same form?


v_pozidis wrote:

It;s a pity that there will be no release for 3.7 (Especially for us,  the users with Minor Updates.
Maybe there will be a discount coupon for the new version 4

Thanks's

For registered users discount will be about 40%

Dmitry.

5 Reply by v_pozidis (edited by v_pozidis 2017-11-09 11:31:57)

  • Registered: 2014-09-06
  • Posts: 805

Re: error message

I send you my example.

Post's attachments

Attachment icon TestForm.zip 6.52 kb, 348 downloads since 2017-11-09 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: error message

try this

procedure frmCreateAlfa_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if frmPerson.Visible then
    begin
        Cancel := True;
        ShowMessage('Your message');
    end;
end;
Dmitry.