Category Archives: Delphi

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

Как получить список дисков?

Posted on 21.10.2015 by Stanislav_Panteleev

Взято с форума Cyberforum

Function GetDisks():TStringlist;
var i:Char;
begin
 Result:=TStringlist.Create;
 for i := 'A' to 'Z' do
 begin
        if (GetDriveType(PChar(i+':\'))<>1) and
        (GetDriveType(PChar(i+':\'))<>0)

        then result.Add(i+':\');

 end;
end;

Function GetDisks():TStringlist;

var i:Char;

begin

Result:=TStringlist.Create;

for i := 'A' to 'Z' do

begin

if (GetDriveType(PChar(i+':\'))<>1) and

(GetDriveType(PChar(i+':\'))<>0)

then result.Add(i+':\');

end;

Posted in Delphi. Язык программирования | Comments Off

Delphi. Процедурные типы. Callback

Posted on 19.10.2015 by Stanislav_Panteleev

Callback – это возможность использовать процедуры и функции в качестве параметра. Пример ниже, по нажатию кнопки, будет выводить сначала первое сообщение – прямым, обычным способом, а потом второе – через callback функцию или что, тоже самое – процедурный тип. ШАГ1 … Continue reading →

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

Video. How to start Delphi UniGui Application under II7

Posted on 15.10.2015 by Stanislav_Panteleev

Posted in Delphi, UniGui | Comments Off

Category Archives: Delphi

Modal_Forms

Application.LastKeyPress and Application.LastUserActive

Errors_logging

Метод PaintTo

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

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

Delphi.Generics types

Как получить список дисков?

Delphi. Процедурные типы. Callback

Video. How to start Delphi UniGui Application under II7

MY PROJECTS

Recent Posts

Categories