Скачать: CL | DM;

Присоединение окна чужой программы к форме.   Найти похожие ветки 

← →
Pavelkq   (2008-04-04 08:51) [0]

Можно ли к своей форме присоединить окно Ворда? Было бы здорово, чтобы границ формы Ворда не было, как и системного меню. Т.е. чтобы форма выглядела, как одно целое (просто с фреймами).

---

← →
Сергей М. ©   (2008-04-04 08:53) [1]

см.  TOleContainer

---

← →
ЮЮ ©   (2008-04-04 10:33) [2]

A как с pdf поступить? Он не хочет ни в какую открываться в TOleContainer, всё в своем окне открыться норовит :(

---

← →
Pavelkq   (2008-04-07 07:11) [3]

Замечательный компонент, прекрасные возможности. Но не пойму, как победить его размещение на Panel. Если установить алигн в клиент, то пока компонент не активен, он размещается, как положено, на панели. Как только я активирую, он заполняет всю мою форму, игнорируя размеры Panel.

---

← →
ЮЮ ©   (2008-04-07 09:41) [4]

Ну так не жалей для него всей формы. А если хочется занять часть формы, то никто не мешает форму, отданную TOleContainer-у "разместить" на своей, у формы ведь тоже есть свойство Parent

procedure TForm1.Button1Click(Sender: TObject);
var
 form2: TForm2;
begin
 form2 := TForm2.Create(Self);
 form2.Parent := Self;
 form2.Show;
end;

---

← →
Pavelkq   (2008-04-07 15:07) [5]

Работает, но эта новая форма создается где-то вдалике от намеченных планов внутри формы1.  Как же ее привязать к Panel1? Код
form2 := TForm2.Create(Panel1);
form2.Parent := Panel1;
form2.Show;
результатов не дал.

---

← →
Pavelkq   (2008-04-07 15:07) [6]

Работает, но эта новая форма создается где-то вдалике от намеченных планов внутри формы1.  Как же ее привязать к Panel1? Код
form2 := TForm2.Create(Panel1);
form2.Parent := Panel1;
form2.Show;
результатов не дал.

---

← →
ANB   (2008-04-07 16:18) [7]

> Pavelkq   (07.04.08 15:07) [6]

+ Align

Кистате, я как то засунул окошко самого ворда в свою панельку без олеконтейнера - прикольно смотриться :)

---

← →
ЮЮ ©   (2008-04-08 03:39) [8]

> но эта новая форма создается где-то вдалике от намеченных
> планов внутри формы1.  Как же ее привязать к Panel1?



procedure TForm1.Button1Click(Sender: TObject);
var
 form2: TForm2;
begin
 form2 := TForm2.Create(Self);
 form2.Align := alClient;  // если не сделал это в дизайнере, установи здесь
 form2.Parent := Panel1;
 form2.Show;
end;

---

← →
Pavelkq   (2008-04-08 06:54) [9]

ANB, конечно я поставил олеконтрол.
ЮЮ, спасибо, хорошо получилось!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c