|
#9
|
|||||
|
|||||
|
Quote:
Code:
LB1.FCreate(FMXForm.Handle, 'MyShortText');
LB1.AutoSize(True);
LB1.top(NSY(100));
LB1.left(NSX(100));
LB1.TextSetting(False, txLeading, txCenter);
LB1.Text('FMXInno: This is a very long text for Testing FLabel AutoSize.');
Quote:
Code:
LB1.FCreate(FMXForm.Handle, 'MyShortText');
LB1.AutoSize(True);
LB1.top(NSY(100));
LB1.left(NSX(100));
LB1.TextSetting(False, txLeading, txCenter);
LB1.HitTest(True);
LB1.OnClick(@LBOnClick);
LB1.OnMouseEnter(@LBMouseEnter);
LB1.OnMouseLeave(@LBMouseLeave);
//LB1.OnMouseDown(@FormMouseDown); (*Set HitTest = False*)
LB1.Text('FMXInno: This is a very long text for Testing FLabel AutoSize.');
Quote:
Quote:
Quote:
but there's another way. Code:
procedure ConfirmExitMsg(Sender: TObject); begin LockScreen.AutoActivateEnabled(False); MsgForm.Show; end; // ... procedure ExitNoBtnOnClick(Sender: TObject); begin MsgForm.Close; LockScreen.AutoActivateEnabled(True); end; Last edited by BLACKFIRE69; 14-07-2024 at 01:40. |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM | BLACKFIRE69 | Conversion Tutorials | 0 | 15-11-2023 17:35 |
| Windows Phone Installer similar to razor12911's original design? | Kitsune1982 | Conversion Tutorials | 0 | 02-07-2020 13:04 |
| INDEX - Conversion Tutorial Index | Razor12911 | Conversion Tutorials | 5 | 11-06-2020 02:05 |
| Frequently Asked Questions | Joe Forster/STA | PC Games - Frequently Asked Questions | 0 | 29-11-2005 09:48 |