mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-04-17 06:57:13 +02:00
38 lines
501 B
ObjectPascal
38 lines
501 B
ObjectPascal
unit ucustommessage;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
TMsgInfo = record
|
|
Msg : integer;
|
|
StrParam : string;
|
|
IntParam : integer;
|
|
end;
|
|
|
|
TCustomMessage = class
|
|
protected
|
|
FValue : TMsgInfo;
|
|
|
|
public
|
|
constructor Create(const aValue : TMsgInfo);
|
|
|
|
property Value : TMsgInfo read FValue;
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TCustomMessage.Create(const aValue : TMsgInfo);
|
|
begin
|
|
inherited Create;
|
|
|
|
FValue := aValue;
|
|
end;
|
|
|
|
end.
|
|
|