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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
30.07.2002
09:02:20
09:06:23
31
31.07.2002
09:02:21
09:06:28
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 08.07.02 09:04

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Лучшее из нашего FAQ   |x|
Как отображать ComboBox в текущей позиции курсора TMemo 


unit CBoxInMemo;

interface

uses
  Windows, Classes, Controls, Graphics, Forms, StdCtrls;

type
  TFrmCboxInMemo = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCboxInMemo: TFrmCboxInMemo;

implementation

{$R *.DFM}

procedure TFrmCboxInMemo.Button1Click(Sender: TObject);
var
  clientPos: TPoint;
  lineHeight: Integer;
  tmpFont: TFont;
begin
  GetCaretPos(clientPos);
  {Use the
following calculation of line height only if you want your combobox
  to appear below the char position you are referencing.}
  tmpFont := Canvas.Font;
  Canvas.Font := Memo1.Font;
  lineHeight := Canvas.TextHeight('Xy');
  Canvas.Font := tmpFont;
  with ComboBox1 do  begin
    {Adjustment of Top by lineHeight only necessary if combobox is to appear below line.}
    Top := clientPos.Y + Memo1.Top + lineHeight;
    Left := clientPos.X + Memo1.Left;
    Visible := true;
    SetFocus;
  end;
end;

procedure TFrmCboxInMemo.ComboBox1Exit(Sender: TObject);
begin
  ComboBox1.Visible := false;
end;

procedure TFrmCboxInMemo.ComboBox1Click(Sender: TObject);
begin
  ComboBox1.Visible := false;
end;

end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • При SQL запросе запрос проходит 1 раз
    Ситуация такая. Я обращаюсь к полю таблицы значение которого забито в DBComboBox, вытаскиваю значение этого поля на ...
  • Из DBGrid нужно выбрать значение
    Люди! Дайте HELP!Как организовать выбор из DBGrid? Нужно выбрать значение Поле n, Запись m AsString???
  • Как спрятать чужое окно?
    Спрятать совем чтоб не было видно ,ни при нажатии Ctrl-Alt-Del ,ни при Alt-Tab ,ни на панели задач ,ни просто так.
  • TreeView
    На форме имеется ImageList и в него статически помещена одна картинка, затем в программе динамически загружаются иконки....
  • OLE
    Как прочесть I-net страницу с компоненты TWebBrowser с последующим ее форматированием и сохранением в текст. файле.
  • Как узнать тип коннекта в инет - Dial-up или LAN   ?
  • TOracleQuery -> DBGrid
    Подскажите, пжста, как вывести курсор из TOracleQuery в грид. Это можно сделать не перекидывая данные в DataSet? ...
У нас большой выбор статей   |x|
Первые шаги с TThread в Delphi
Создание многопоточных приложений (со множеством дочерних процессов, которые выполняются одновременно).
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Torry's Delphi Pages
Более 5000 компонентов, примеров кода и т.д. для программистов на Borland Delphi и C++ Builder.
» Оценка сайта: 5
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Ты так хотел
Увидеть правду голую-
Куда же ты?!

Афоризмы
Неудачная операция - половина удачного вскрытия (Хенрик Ягодзиньский)

Фраза дня
Студент не знает в двух случаях: либо еще не сдавал, либо уже сдал.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Китае вам грозит штраф, если вы родите более одного ребенка.
В Нью Йорке (США) тем, кто спрыгивает с крыш зданий, грозит смертная казнь (самый верный способ самоубийства - если не разобъёшься, сожгут на электричесом стуле.)

И на закуску коротенький анекдот
В какой ещё стране спирт хранится в бронированных сейфах, а "ядерная кнопка" - в пластмассовом чемоданчике...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=135

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное