Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Вниз

RichText и ListBox   Найти похожие ветки 

 
tsarevep   (2002-04-29 12:02) [0]

Уважаемые мастера помогите решить задачку.
Нужно чтоб ListBox всплывал как в родном Delphi
после нажатия точки. Как это сделать я примерно знаю
но вот чтоб он всплывал от позиции курсора, а именно под точкой
не могу решить, всю литературу перерыл, нашел толко (воспользйтесь
стандартной процедурой GetCaretPos), но чего то я её не нахожу, да и если бы нашёл не знаю как ей пользоваться.
Помогите плиз.
С уважением.


 
gek   (2002-04-29 12:09) [1]

GetcaretPos определена в windows.pas


 
tsarevep   (2002-04-29 12:48) [2]

А как ею пользоваться хоть примерчик небольшой плз!!!


 
gek   (2002-04-29 12:55) [3]

Returns the cursor position.

function GetCaretPos: TPoint; override;


Возвращает текущую позицию курсора


 
tsarevep   (2002-04-29 13:41) [4]


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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
ListBox1: TListBox;
procedure RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=32 then
begin
Listbox1.Visible:=true;
// Здесь я торможу
end;

end;


procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then
Richedit1.SetSelTextBuf(pchar(ListBox1.Items[Listbox1.itemIndex]));
Listbox1.Visible:=false;
end;
end


С Уважением.


 
gek   (2002-04-29 13:59) [5]

var
t:tpoint;
begin
GetCaretPos(t);


Координаты есть. Определяй left у ListBox1.


 
tsarevep   (2002-04-29 14:04) [6]

Спасибо gek!



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

Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
7-39880
Polard
2002-02-14 12:49
2002.05.13
Версия Win


14-39850
VictorT
2002-04-04 11:04
2002.05.13
Задачка


1-39743
sergey32
2002-04-27 17:29
2002.05.13
Формат типа даты для Edit1


1-39796
ppp
2002-04-29 10:23
2002.05.13
Toolbar вместо главного меню


4-39915
skiph
2002-01-22 11:52
2002.05.13
Сканирование реестра





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский