Передача управления формы в другой процесс

[Winexcel]

Сообщение от come-on

уже все сказано

что означает "или то что в ссылках"?

[come-on]

IPC

[Vedaslav]

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

Ну я хочу допустим на форме разместить TEdit, как мне это сделать?

Если я правильно понял, то нужно сделать это:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
   procedure FixAll;
    { Public declarations }
  end;
 const
  EditID = 1;
var
  Form1: TForm1;
   Edit: HWND;
implementation

{$R *.dfm}

procedure TForm1.FixAll;
var
  s: string;
  i: integer;
  pt: TPoint;
  Handle: HWND;
  p: TPoint;
  dc: HDC;
  h: HWND;
  mas: String;
  WindowRect: TRect;

begin
  GetCursorPos(pt); // узнаем координаты курсора мышки
  Handle := WindowFromPoint(pt);
  // узнаем указатель на окно, который находится под курсором мышки

  i := GetWindowTextLength(Handle); // узнаем размер заголовка в символах
  SetLength(s, i); // выделяем место под буфер
  GetWindowText(Handle, PChar(s), i + 1);
  // узнаем непосредственно текст заголовка


  // опрашиваем позицию мыши

  GetCursorPos(p);

  // получаем дескриптор окна под курсором

  h := WindowFromPoint(Mouse.CursorPos);

  if h <> 0 then

  begin

    // Узнаем положение и размеры окна под курсором

    GetWindowRect(h, WindowRect);
    Edit := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', nil,
      WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_MULTILINE or ES_AUTOVSCROLL, 0,
      0, WindowRect.Right - WindowRect.Left + 5,
      WindowRect.Bottom - WindowRect.Top + 5, h, EditID, hInstance, nil);


    SendMessage(Edit, WM_SETFONT, GetStockObject(ANSI_VAR_FONT), 0);
    SetWindowText(Edit, s);

    SendMessage(Edit, WM_SETFOCUS, 0, 1);
    SendMessage(Edit, EM_SETSEL, 0, -1);

  end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FixAll;
  Timer1.Enabled:=false;
end;

end.

[Человек_Борща]

ТС, то что Вы хотите просто невозможно, по крайней мере так, как хотите этого Вы. Просто потому что другой процесс живет с области другой памяти, все там расположено по другим адресам. Так что только IPC.

[come-on]

Vedaslav

мне просто интересно, что с этим эдитом та прога делать будет? или для красоты ?

[Vedaslav]

Сообщение от come-on

мне просто интересно, что с этим эдитом та прога делать будет? или для красоты ?

Нет, всё очень просто когда-то для себя писал утилиту типа Textify.