Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Заменять умляуты во время набора
{
This code allows you to replaces umlauts (i.e. 'д', 'ц', etc.)
with 'ae', 'oe', etc. while typing.
Mit diesem Code kann man Umlautzeichen (д, ц, ь usw.) durch
ae, oe usw. ersetzen. Dies geschieht applikationsweit, wдhrend der Eingabe.
}
procedure TForm1.AppOnMessage(var
Msg: TMsg; var
Handled: Boolean);
type
TReplacement = record
chIn: Char;
chOut: string
[2]
end
;
TReplacements = array
[0..6] of
TReplacement;
const
Replacements: TReplacements = ((chIn: 'д'; chOut: 'ae'),
(chIn: 'ц'; chOut: 'oe'),
(chIn: 'ь'; chOut: 'ue'),
(chIn: 'Д'; chOut: 'Ae'),
(chIn: 'Ц'; chOut: 'Oe'),
(chIn: 'Ь'; chOut: 'Ue'),
(chIn: 'Я'; chOut: 'ss'));
var
i: Integer;
c: Char;
begin
Handled := False;
if
Msg.Message
= WM_CHAR then
begin
if
Chr(Msg.wParam) in
['д', 'ц', 'ь', 'Д', 'Ц', 'Ь', 'Я'] then
begin
for
i := Low(Replacements) to
High(Replacements) do
if
Chr(Msg.wParam) = Replacements[i].chIn then
begin
Msg.wParam := Ord(Replacements[i].chOut[1]);
with
Longrec(Msg.lParam) do
Hi := (Hi and
$FF00) or
VKKeyScan(Replacements[i].chOut[2]);
PostMessage(Msg.hwnd, WM_CHAR, Ord(Replacements[i].chOut[2]),
Msg.wParam);
with
Longrec(Msg.lParam) do
Hi := (Hi and
$FF00) or
VKKeyScan(Char(Msg.wParam));
Break;
end
;
end
;
end
;
end
;
procedure
TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppOnMessage;
end
;