Как заставить программу показывать значения по нажатию кнопки мыши

[xRamzeSx]

Привет всем. У меня проблема - я хочу сделать так, чтобы по нажатию правой кнопки мыши в определённом окне, на Form'е в Label или Edit показывалось соответствующее значение.
Если кто знает процедуру или функцию, пожалуйста, напишите.

[zmey31313]

Процедура в каждом из компонентов OnMouseUp:

Begin
If Button = mbRight then
//Действия программы
end;

[Stilet]

в определённом окне

Ну думается мне самый простой способ достичь этого это указать для всех этих компонентов один и тот же обработчик нажатия мышки, а далее Sender в этом обработчике укажет тебе какой из компонентов его вызвал. т.е.

 if sender=Edit1 then TEdit(sender).Text:=Чето там;
 if sender=Label1 then TLabe(sender).Text:=Чето там;
 ...

Понятен смысл?

[xRamzeSx]

Я хочу чтобы программа выводила незнакомое мне значение. Как это сделать вообще незнаю

[Stilet]

Как это сделать вообще незнаю

Ух ты...
Если ты не знаешь что должна тебе выводить программа, то тебе придется написать ИИ
А если тебе случайное число нужно вывести то вот:
TEdit(sender).Text:=IntToStr(random(1000));

[xRamzeSx]

Вот мой код:

var
  Form2: TForm2;
  WindowName : Integer;
  ProcessId : Integer;
  ThreadId : Integer;
  Buf : PChar;
  HandleWindow : Integer;
  Write : Cardinal;
  WindowTitle:string = '...'; //Название окна
  PokeValue: cardinal= $FFFFFFFF;//Значение
  NumberOfBytes:integer = 4;//Кол-во байт


implementation

{$R *.dfm}

function Find(s: string): hWnd;
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Find := 0;
  Wnd := GetWindow(application.Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> application.Handle) and
    IsWindowVisible(Wnd) and
    (GetWindow(Wnd, gw_Owner) = 0) and
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(s, StrPas(buff)) > 0 then
      begin
        Find := Wnd;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

//Записать значение из памяти окна
procedure write_value(address:cardinal;byte:byte;value:int64);
begin
WindowName := find(windowtitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(value);
WriteProcessMemory(HandleWindow,ptr(Address),buf,byte,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

//Читать значение из памяти окна 2
function read_value2(address:cardinal;byte:byte;value:integer):string;
begin
WindowName := find(windowtitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(value);
ReadProcessMemory(HandleWindow,ptr(Address),buf,byte,write);
CloseHandle(HandleWindow);
result:=buf;
end;

//Читать значение из памяти процесса
function read_value(Addres:cardinal;ByteType:integer;var

GetValue:int64):boolean;
var
  PID,PH:cardinal;
  rw:cardinal;
  exec:boolean;
  H:HWND;
begin
try
  h:=find(windowtitle);
  exec:=true;
  if h=0 then
    exec:=false;
  getwindowthreadprocessid(h,PID);
  PH:=openprocess(process_all_access,false,PID);
  if PH=0 then
    exec:=false;
  if readprocessmemory(PH,ptr(Addres),@GetValue,ByteType,rw)=false then
    exec:=false;
  closehandle(PH);
  result:=exec;
except

end;
end;

function read_goto_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    s:=s+chr(ch);
  until ch<>en;
  result:=s;
  hend:=c-1;
end;


function read_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    if ch<>en then s:=s+chr(ch);
  until ch=en;
  result:=s;
  hend:=c-1;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
res:int64;
begin
res:=0;
begin
res:=0;
read_value($000000,1,res);//Известный мне адрес
Edit1.text:=inttostr(res);
end;

end.

Мне нужна функция или процедура, которая считывая название объекта в Edit1 - например, выдавала бы его значение в Edit2 по нажатию кнопки Button1 - например. Можно сказать его ID.
Или проще по нажатию правой кнопки на объект в окне, так же -> Edit