| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Буфер данных
13 © (2006-01-30 17:37:00)в программе находятся кнопки вырезать копировать и вставить
как сделать так чтобы они были недоступны если в буфере ничего нет и доступны если в буфере находятся данные
Набережных С. (2006-01-31 08:10:00) [1]
> Pit © (30.01.06 21:56) [3]
Тогда уж IsClipboardFormatAvailable. Или Clipboard.HasFormat.
Pit (2006-01-30 21:56:00) [2]Попробуй это
если нажмёш Button1, Button2 будет не доступна если в буфере нет текста, очисти буфер Button2 потом нажми Button1.
procedure TForm1.Button1Click(Sender: TObject);
var
hwd: hWnd;
begin
OpenClipboard(0);
if GetClipboardData(CF_UNICODETEXT) = 0 then
Button2.Enabled:= False;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EmptyClipboard ;
end;
Смотри GetClipboardData(UINT uFormat);
Parameters
uFormat
[in] Specifies a clipboard format. For a description of the standard clipboard formats, see Standard Clipboard Formats .
13 (2006-01-30 18:23:00) [3]а пример можно?
P.S. также используется Memo
begin...end (2006-01-30 17:50:00) [4]SetClipboardViewer + WM_DRAWCLIPBOARD
| |
