Category Archives: FireMonkey

MessageDlg – запрос сохранения данных в Memo

Posted on 11.11.2015 by Stanislav_Panteleev

var textModified:boolean;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
if textModified then


        case MessageDlg('Сохранить изменения в тексте',TMsgDlgType.mtConfirmation,
        [tMsgDlgBtn.mbYes]+[tMsgDlgBtn.mbNo]+[tMsgDlgBtn.mbCancel],-1) of

        mrYes: memo1.Lines.SaveToFile('saved.txt');
        mrNO: CanClose:=true;
        mrCancel: CanClose:=true;


        end

end;

var textModified:boolean;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if textModified then

case MessageDlg('Сохранить изменения в тексте',TMsgDlgType.mtConfirmation,

[tMsgDlgBtn.mbYes]+[tMsgDlgBtn.mbNo]+[tMsgDlgBtn.mbCancel],-1) of

mrYes: memo1.Lines.SaveToFile('saved.txt');

mrNO: CanClose:=true;

mrCancel: CanClose:=true;

end

end;

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Modal_Forms

Posted on 11.11.2015 by Stanislav_Panteleev

В порядке практики… Создадим 2 формы, главная форма будет вызывать не главную через showmodal… Вызов модальной формы

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

Чтение модального результата

procedure TForm1.Button4Click(Sender: TObject);
begin
  if Form2.ModalResult = mrCancel then 
    Showmessage('Result Cancel');
  if Form2.ModalResult = mrOk then 
    Showmessage('Result Ok');
end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if Form2.ModalResult = mrCancel then

Showmessage('Result Cancel');

if Form2.ModalResult = mrOk then

Showmessage('Result Ok');

end;

На модальной форме есть кнопка, которая записывает в свойство ModalResult значение mrOK при событии onClick

Self.ModalResult:=mrOk;

1	Self.ModalResult:=mrOk;

Также, если … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Application.LastKeyPress and Application.LastUserActive

Posted on 11.11.2015 by Stanislav_Panteleev

Нашел такие свойства у Application

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
edit1.Text:=DateTimeTostr(application.LastKeyPress);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.Text:=DateTimeTostr(application.LastUserActive);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='';

edit1.Text:=DateTimeTostr(application.LastKeyPress);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit1.Text:=DateTimeTostr(application.LastUserActive);

end;

Posted in Delphi, FireMonkey | Comments Off

Errors_logging

Posted on 09.11.2015 by Stanislav_Panteleev

FireMonkey. Логирование ошибок в файл

program Project1;

uses
System.StartUpCopy,
FMX.Forms,
System.IOUtils,
System.SysUtils,
Unit2 in 'Unit2.pas' {Form2};

type TAppErrors=class
procedure ErrorLog(Sender:Tobject;E:Exception);
end;

{$R *.res}

{ TAppErrors }

procedure TAppErrors.ErrorLog(Sender: Tobject; E: Exception);
var s:string;
begin
s:=Format('%s'+#9+'%s',[DateTimeToStr(Now),E.Message]);
TFile.AppendAllText('errors.log',s+#10#13);
Application.ShowException(E);
end;

var AppError:TAppErrors;

begin
AppError:=TAppErrors.Create;
Application.OnException:=AppError.ErrorLog;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

program Project1;

uses

System.StartUpCopy,

FMX.Forms,

System.IOUtils,

System.SysUtils,

Unit2 in 'Unit2.pas' {Form2};

type TAppErrors=class

procedure ErrorLog(Sender:Tobject;E:Exception);

end;

{$R *.res}

{ TAppErrors }

procedure TAppErrors.ErrorLog(Sender: Tobject; E: Exception);

var s:string;

begin

s:=Format('%s'+#9+'%s',[DateTimeToStr(Now),E.Message]);

TFile.AppendAllText('errors.log',s+#10#13);

Application.ShowException(E);

end;

var AppError:TAppErrors;

begin

AppError:=TAppErrors.Create;

Application.OnException:=AppError.ErrorLog;

Application.Initialize;

Application.CreateForm(TForm2, Form2);

Application.Run;

end.

Posted in Delphi, FireMonkey | Comments Off

Метод PaintTo

Posted on 09.11.2015 by Stanislav_Panteleev

Любой потомок TControl умеет рисовать на Canvas других элементов методом PaintTo Нарисуем кнопку в левом верхнем углу формы. По нажатию на Button1 происходит прорисовка.

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Canvas.BeginScene;
  Button1.PaintTo(Form2.Canvas,RectF(0,0,Button1.Width,button1.Height));
  Form2.Canvas.EndScene;
end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Canvas.BeginScene;

Button1.PaintTo(Form2.Canvas,RectF(0,0,Button1.Width,button1.Height));

Form2.Canvas.EndScene;

end;

Posted in Delphi, FireMonkey | Comments Off

Перемещение мышью TControl (на примере кнопки)

Posted on 08.11.2015 by Stanislav_Panteleev

Пример из Д. Осипова Объявляем глобальные переменные

var
  Form2: TForm2;
  xOffset:single;
  yOffset:single;

var

Form2: TForm2;

xOffset:single;

yOffset:single;

Фиксируем начальную точку

procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
xoffset:=x;
yoffset:=y;
end;

procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

xoffset:=x;

yoffset:=y;

end;

Перемещаем

procedure TForm2.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin

if (ssLeft in Shift) then
   
with (sender as tcontrol)  do
        begin
        button1.Position.X:=button1.Position.x+x-xoffset;
        button1.Position.y:=button1.Position.Y+Y-yoffset;
        end;

end;

procedure TForm2.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Single);

begin

if (ssLeft in Shift) then

with (sender as tcontrol) do

begin

button1.Position.X:=button1.Position.x+x-xoffset;

button1.Position.y:=button1.Position.Y+Y-yoffset;

end;

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Калькулятор (частично)

Posted on 07.11.2015 by Stanislav_Panteleev

Частично восстанавливаю пример калькулятора по Д.Осипову. Основная особенность – присвоить 1 событие нажатия на кнопку, соответствующую цифре для всех кнопок (1-9);

procedure TForm2.CornerButton1Click(Sender: TObject);
begin
if Label1.Text='0' then
label1.Text:=(sender as tcornerbutton).Text
else
label1.Text:=label1.Text+(Sender as tcornerbutton).Text;
end;

procedure TForm2.CornerButton1Click(Sender: TObject);

begin

if Label1.Text='0' then

label1.Text:=(sender as tcornerbutton).Text

else

label1.Text:=label1.Text+(Sender as tcornerbutton).Text;

end;

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Delphi.Generics types

Posted on 02.11.2015 by Stanislav_Panteleev

В данном посте разбираюсь с обобщенными типами данных, руководствуясь книгой Д. Осипова “Delphi. Программирование для Windows. OS X, iOS и Android”. Цель – отработать на практике возможности обобщенных типов. Зачем нужны обобщенные типы? Насколько я понял, в том числе для … Continue reading →

Posted in Delphi, Delphi. Язык программирования, FireMonkey, Без рубрики | Comments Off

Category Archives: FireMonkey

MessageDlg – запрос сохранения данных в Memo

Modal_Forms

Application.LastKeyPress and Application.LastUserActive

Errors_logging

Метод PaintTo

Перемещение мышью TControl (на примере кнопки)

Калькулятор (частично)

Delphi.Generics types

MY PROJECTS

Recent Posts

Categories