Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Фев

Как получить список всех открытых окон?

Как получить список всех открытых окон? Запишу допустим я список этих окон в листбокс, как потом узнать у выбранного окна из списка его размеры? (читать всё…)

Добавлено в Пост-обзор. Дата Февраль 24th, 2011

24th

Назначить событие на OnClick для TMenuItem

Подскажите какой параметр надо передавать или может как по-другому для динамически созданного TMenuiIem создать событие OnClick, чтобы можно было его в процедуре распознать(какой именно вызвал).

Баламут:

Это делается примерно так.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;
type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure PopupMenu1Change(Sender: TObject; Source: TMenuItem;
      Rebuild: Boolean);
  private
     procedure ItemClick(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ItemClick(Sender: TObject);
begin
  ShowMessage(‘ПРЕВЕД!’);
end;
procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
  Rebuild: Boolean);
begin
  Popupmenu1.Items[0].OnClick := ItemClick;
end;
end.Syhi-подсветка кода

тема на форуме

Добавлено в Пост-обзор. Дата Февраль 24th, 2011

23rd
Фев

Как отправить пост-запрос в дельфи на сервер, и получить от сервера ответ?

DeDoK:

Отправляет он и получается просто

var
s : TstringList;
str : string;
begin
s:=TStringList.Create;
s.Add(‘login=’);
s.Add(‘pass=’);
// вобщем добавляем свои параметры
str:=idHttp1.Post(‘http://’,s);
//в str будет ответ
end;Syhi-подсветка кода

тема на форуме

Добавлено в Пост-обзор. Дата Февраль 23rd, 2011

23rd

Как узнать на какой UIN пришло сообщение TICQClient?

У меня такой вопросик: создаются TICQClient программно. Допустим создали мы три учетные записи и подключились к сети всеми тремя UINами. Как определить к какой из учетных записей пришло сообщение, чтобы его в дальнейшем обработать?

Пепел Феникса:
в событии Sender это обьект вызвавший событие.

Memo1.Lines.Add(‘Отправитель: ‘+IntToStr((Sender as TICQClient).UIN));Syhi-подсветка кода

тема на форуме

Добавлено в Пост-обзор. Дата Февраль 23rd, 2011

23rd

Копировать содержиое listbox

Last:

Здравствуйте, есть два listbox’а, надо скопировать элементы из одного в другой. Пишу на Си:

разобрался, код выглядит так:

case IDL_BUTTON_ADD_ALL:
         switch (whi)
          {
          case BN_CLICKED:
            {
              int i = 0, n;
              n = SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME) ,LB_GETCOUNT,0,0);
              for (i = 0; i < n; i++)
              {
                  LPTSTR *String = (LPTSTR*)malloc(1024*sizeof(TCHAR));
                  SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME), LB_GETTEXT, i, (LPARAM)String);
                  SendMessage(GetDlgItem(hwnd, IDL_LIST_SEL_FILENAME), LB_ADDSTRING, 0, (LPARAM)String);
                  free(String);
              }
            }
          }
          return 0;Syhi-подсветка кода

тема на форуме

Добавлено в Пост-обзор. Дата Февраль 23rd, 2011

17th
Фев

Длинное целое из памяти -> .txt (FASM)

Итак, почти окончил написание своей проги, вычисляющей числа последовательности Фибоначчи. Считает всё правильно, проверял дебаггером.
Подскажите, как число в 512 байт из памяти (юзаю «длинную арифметику»)
записать в текстовик в десятичном виде. (читать всё…)

Добавлено в Пост-обзор. Дата Февраль 17th, 2011

17th

Как сделать большое изображение на маленькой форме?

Столкнулся с такой проблемой….
Имеются много (10к+) картинок 256х256 формата jpg. Необходимо их всех склеить и разместить на форме. При их склеивании образуется оч. большая картинка. Как сделать так, что бы размеры формы остались к примеру 800х800, а картинка была на этой форме в натуральную величину (т.е. не уменьшалась), а передвижение по этой картинке осуществлялось с помощью мышки ( при удержании ЛКМ можно было передвигаться по этой большой картинке ). (читать всё…)

Добавлено в Пост-обзор. Дата Февраль 17th, 2011

17th