Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 752
от 17.03.2007, 01:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 441, Экспертов: 59
В номере:Вопросов: 2, Ответов: 3


Вопрос № 77883: Добрый день, уважаемые эксперты! Пидскажить пожалуйста, как сделать, чтобы новая форма в программе выводилась (Form.show) таким образом, чтобы ее можно было увидеть на панели задач, то есть, чтобы она была не зависимая от главного окна программы (что...
Вопрос № 77890: Здраствуйте Уважаемые эксперты Подскажите пожалуйтса, как можно узнать IP адрес который прислал запрос в компонентах ServerSocket и ClientSocket, я пробовал так как показанно в приложении, но тогда мне пишет ошибку. Помогите пожалуйста разобр...

Вопрос № 77.883
Добрый день, уважаемые эксперты! Пидскажить пожалуйста, как сделать, чтобы новая форма в программе выводилась (Form.show) таким образом, чтобы ее можно было увидеть на панели задач, то есть, чтобы она была не зависимая от главного окна программы (чтобы можно было ее отдельно сворачивать на панель задач, закрывать и т.п.). Заранее благодарный за ответ.
Отправлен: 11.03.2007, 21:22
Вопрос задал: Богдан (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: mvp
Здравствуйте, Богдан!
Напишите в onCreate второй формы:
ParentWindow := GetDesktopWindow

Правда, возникают артефакты при таскании второй формы (она отображается только после того, как кнопку мыши отпускают)
---------
Моя совесть чиста - не бывшая в употреблении
Ответ отправил: mvp (статус: Студент)
Ответ отправлен: 11.03.2007, 22:27

Отвечает: Gladiator
Здравствуйте, Богдан!

Вот нормальный вариант:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

//Первая форма

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.Show
end;

//Вторая форма

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
Ответ отправил: Gladiator (статус: 9-ый класс)
Ответ отправлен: 12.03.2007, 08:13


Вопрос № 77.890
Здраствуйте Уважаемые эксперты
Подскажите пожалуйтса, как можно узнать IP адрес который прислал запрос в компонентах ServerSocket и ClientSocket, я пробовал так как показанно в приложении, но тогда мне пишет ошибку.
Помогите пожалуйста разобратся с этим. Желательно куском кода.
Заранее Спасибо.
С Уважением, Станислав.

Приложение:

Отправлен: 11.03.2007, 23:41
Вопрос задал: Станислав (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Melamed
Здравствуйте, Станислав!
Смотри приложение.
То есть берется Socket из аргумента обработчика

Приложение:

Ответ отправил: Melamed (статус: 9-ый класс)
Ответ отправлен: 11.03.2007, 23:58
Оценка за ответ: 5
Комментарий оценки:
Спасибо.


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.45 beta от 20.02.2007
Яндекс Rambler's Top100

В избранное