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

made in programmersforum 5

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

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

26th
Фев

Как програмно снять выделение с кнопки?

Sibedir:

Можно это сделать и с TWinControl.
На сколько я понял, кроме диактивации контрола (стяли жирную рамочку) нужно еще снять фокус (стяли пунктирную рамочку).
Короче как-то так (читать всё…)

Добавлено в Топик-обзор. Дата Февраль 26th, 2011

26th

Окно поверх всех окон

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

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

25th
Фев

Близкие контакты третьего вида с Visual Foxpro

Многие наверняка, в свое время, задавались интересным вопросом: «А вот как бы задействовать всю силу применяемой в моем проекте СУБД? Не только стандартные SQL запросы, а и скрытые возможности». Тогда ведь можно будет получать результат наиэффективнейшими методами…

(читать всё…)

Добавлено в Журнал, Статьи. Дата Февраль 25th, 2011

25th

Запись дисков в Delphi средствами IMAPI

Доброго времени суток уважаемые любители Delphi. В этой статье я расскажу про запись CD/DVD дисков в среде Delphi. Общие принципы, изложенные в этой статье подойдут не только для языка Delphi, но и для языка С++. Для прочтения этой статьи с максимальной пользой, читателю рекомендуется получить базовые понятия об OLE/COM, впрочем даже незнание этих понятий вряд ли помешает понимаю этой статьи, так как классы и компоненты Delphi (так же как и классы С++), которые мы будет использовать полностью скрывают от нас все тонкости и неудобства использования COM интерфейсов для записи дисков.

(читать всё…)

Добавлено в Журнал, Статьи. Дата Февраль 25th, 2011

25th

Как в программу добавить файл ресурсов?

подскажите как в файл ресурса загрузить картинки(60 шт), чтобы был одна exe и rc, и с ресурса грузить эти картинки в программу?
(читать всё…)

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

24th
Фев

Наложение маски на компонент

(читать всё…)

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

24th

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

Подскажите как можно реализовать: вот есть у меня текстовый файл для проекта, в нем две колонки данных и делитель 4 пробела, как мне сделать из него 2 массива данных. один массив — одна колонка данных, второй — вторая, а потом по ним построить график. Зараннее благодарю! (читать всё…)

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

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-подсветка кода