Bij type TToastLength krijg ik een fout melding (Expected but identifier 'TToastlength' found).
Doe ik het zo goed?:
Code:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Edit;
//-----------------------------
type
TToastLength = (LongToast, ShortToast);
//-----------------------------
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Toast(const Msg: string; Duration: TToastLength);
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
Bookmarks