На Английский клавиатуре что писал на Русском

[Stilet]

Покажи как вы его будите вызвать из другого форму для другого Edit .!!!

Оч просто.
Описываем модулек:

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

function akey(Key: Char):Char;

implementation

function akey(Key: Char):Char;
Const
   Lat = '~@#$^&QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`qwertyuiop[]asdfghjkl;''\zxcvbnm,./';
   Cyr = 'Ё"№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ёйцукенгшщзхъфывапролджэ\ячсмитьбю.';
var
  i: Integer;
begin
   i:=pos(Key,lat);
   if i<>0 then Result:=Cyr[i] else Result:=Key;
end;

end.

И вызов:

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  Key:=akey(Key;
end;

И видна функа будет везде где присобачишь в uses этот модулек

[xxbesoxx]

Stilet Да работает отлично . Спасибо . Я такой подход не знал . Всегда описал разделе public спасибо за урок на будущее буду знать

[Аватар]

Если кого то забил, Надеюсь они меня простить . Но я вам скажу прямо. Ваши #28 это "дезинформация-не правильно" ... На остальные я просто промолчу . Я не понимаю почему вы меня это говорите ?
Может вы специалист на WEB-программирование !!! Но мой тема находится на Общие вопросы Delphi и процедура и функция который не объявлен разделе public его практически не возможно вызвать из другое модуле как вы говорите

И не мешало бы перед Arigato немножко извиниться, не?

[xxbesoxx]

Аватар Нет не буду .... потому что #22 он говорить на моего #7 Что я его магу вызвать вот так Form1.Edit3KeyPress Это не так, как он говорил! Он не говорил про модулек Пожалуйста на данный момент #22 посмотрите ....

[Arigato]

xxbesoxx, я не могу понять вашего пафоса. Если вы себя крутым считаете, типа все знаете лучше других, то тогда вообще нафиг темы с такими вопросами, если вы и сами круче всех тут? А если вы чего-то не понимаете и задаете вопросы, то извольте слушать ответы и вникать в них, а не кричать сходу, даже не разобравшись, что то, что вам говорят работать не будет.

Вот у вас есть процедура Edit3KeyPress. Вы же хотели процедуру, она у вас уже есть. Она прописана в качестве обработчика события KeyPress для Edit3, так пропишите ее же и для Edit1, и для Edit2, и для всех остальных на форме Form1.

Стоп, я понял, вы не понимаете, как задать нужный обработчик и считаете, что я вам советую копипастить. Нет, щелкайте по нужному Edit'у, переходите на вкладку Events инспектора объектов, находите обработчик OnKeyPress, там ничего не будет прописано, если только это не тот самый Edit3, для которого обработчик уже задан. Выбирайте в выпадающем списке в качестве обработчика Edit3KeyPress. Делайте так для всех Edit'ов формы.

Теперь переходим к другой форме. Прописывайте uses unit1 в разделе implementation юнита со второй формой. Добавляйте обработчик OnKeyPress для первого едита второй формы, в нем пишите код: Form1.Edit3KeyPress(Sender, Key), всем остальным едитам второй формы прописывайте этот же обработчик. Как это сделать я выше разжевал.

Аналогично продолжайте для других форм. Все, у вас для всех едитов в итоге на событие KeyPress вызывается одна и та же процедура, которая у вас называется Edit3KeyPress и прописана в первой форме.

[xxbesoxx]

Если вы себя крутым считаете

От куда у вас такой меня ? где вы это заметили ?

А если вы чего-то не понимаете и задаете вопросы, то извольте слушать ответы и вникать в них

Ответ ваши был непонятны #22 и предыдущие тоже

а не кричать сходу

Что значить кричат ? если я какой то фраза написал на "Верхний регистр" это не значить что я кричу ! Я повторяю тот же вопрос где я не увидел "ответ достаточный . Но может одно и тот же вопрос человек будет задавать еще раз. Может что я не понял. Что здесь такого ? От куда у вас пришлось такой мнения ? Может вы какой то звук слышали ) Может у вас музика было включен ?

Теперь переходим к другой форме. Прописывайте uses unit1 в разделе implementation юнита со второй формой. Добавляйте обработчик OnKeyPress для первого едита второй формы, в нем пишите код: Form1.Edit1KeyPress(Sender, Key), всем остальным едитам второй формы прописывайте этот же обработчик. Как это сделать я выше разжевал.

Это только сейчас вы меня говорите когда я сам разобрал через public и потом второе вариант написал Stilet
У меня такой впечатление что вы рассказывайте конструкция который реализовал Stilet ..... Если вы так хотели помощь ! Почему на предыдущие посте не писали это ?
Давайте пожалуйста закроем это тему ! А то вы вы меня отвлекайте ! Я не увидел от вас не какой помощь .... Пожалуйста не надо писать энциклопедия ........... Посмотри нормальные люди ---> ( Аватар и Stilet ) Как они помогают людей ..... Показывают реальный пример ... Я от вас не увидел не какой ( Пример и реальный ответ )

[Пепел Феникса]

Сообщение от xxbesoxx

Stilet Да работает отлично . Спасибо . Я такой подход не знал . Всегда описал разделе public спасибо за урок на будущее буду знать

public это раздел класса, а не модуля.

[xxbesoxx]

Пепел Феникса Огромное спасибо всех .... Я не кричал ребята . давайте закроим эту тему