AF
а. ну такое себе. ок, спасибо, буду тыкаться в лейбл
Size: a a a
2020 March 08
2020 March 09
AF
Братцы. А как бы так хитро сделать, чтобы при нажатии на tImage, событие onclick по нему полностью обрабатывалось с отдельном юните? Я хочу вынести в модули каждый набор функционала, и хотел бы узнать, как правильно сделать так, чтобы имея одну форму, можно было в разных юнитах обрабатывать события...
RY
Image.OnClick := ...
RY
Это должен быть метод класса
AF
А как его сделать, если я не задаю даже форму новую, а только новый юнит создаю.
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
GB
Братцы. А как бы так хитро сделать, чтобы при нажатии на tImage, событие onclick по нему полностью обрабатывалось с отдельном юните? Я хочу вынести в модули каждый набор функционала, и хотел бы узнать, как правильно сделать так, чтобы имея одну форму, можно было в разных юнитах обрабатывать события...
вообще, обрабатывать события там же, в обработчиках формы, неправильно. Правильно использовать action'ы, либо назначать обработчики из специализированных на бизнес логике модулей
GB
А как его сделать, если я не задаю даже форму новую, а только новый юнит создаю.
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
форма не нужна. это просто класс. может быть любой класс. в т.ч. твой собственный
AF
вообще, обрабатывать события там же, в обработчиках формы, неправильно. Правильно использовать action'ы, либо назначать обработчики из специализированных на бизнес логике модулей
Где вот про это почитать?
GB
Где вот про это почитать?
в любой нормальной книге по дельфи
AF
в любой нормальной книге по дельфи
😲(ок, спасибо)
AK
function MakeMethod(Data, Code:Pointer):TMethod;
begin
Result.Data:=Data;
Result.Code:=Code;
end;
procedure ShowList(Self:pointer; Sender:TObject);
begin
end;
OnClick:=TNotifyEvent(MakeMethod(nil,@ShowList))AK
образец применения обычной фкнуции в качестве обработчика
AS
А как его сделать, если я не задаю даже форму новую, а только новый юнит создаю.
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
Что это и зачем?
Что такое "у меня без формы", но "обработка клика на имедже"? Как это?
Я не вкурил
Что такое "у меня без формы", но "обработка клика на имедже"? Как это?
Я не вкурил
RY
А как его сделать, если я не задаю даже форму новую, а только новый юнит создаю.
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
По идее если бы у меня была форма то получалось бы Image.OnClick := Form3.myProcedure etc.
Ну эт если верить примерам всяким в интернетах. Но у меня без формы все это, я просто хочу вынести обработку эвентов на отдельный юнит...
Как сделать в новом юните класс? Об этом написано в любой книжке по делфи
RY
образец применения обычной фкнуции в качестве обработчика
Вот это зря. Научишь его такому, он так и не поймет как классы объявлять
D
Добрый день. Подскажите классы/компоненты/методы FPC для записи в csv больших объёмов (~2 gb)
D
Хочу временно выгрузить часть данных из таблицы в firebird 2.5 с возможностью дальнейшего восстановления. Т.е. Вынести в архив из бд
SB
стандартный паскалевский Text
SB
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
VA
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
AssignFile, копирование по байту(2 байта)
мы точно говорим про современные и быстрые решения?
мы точно говорим про современные и быстрые решения?