Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

Буфер данных   Найти похожие ветки 

 
13   (2006-01-30 17:37) [0]

в программе находятся кнопки вырезать копировать и вставить
как сделать так чтобы они были недоступны если в буфере ничего нет и доступны если в буфере находятся данные


 
begin...end ©   (2006-01-30 17:50) [1]

SetClipboardViewer + WM_DRAWCLIPBOARD


 
13   (2006-01-30 18:23) [2]

а пример можно?
P.S. также используется Memo


 
Pit ©   (2006-01-30 21:56) [3]

Попробуй это
если нажмёш 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 .


 
Набережных С. ©   (2006-01-31 08:10) [4]


> Pit ©   (30.01.06 21:56) [3]

Тогда уж IsClipboardFormatAvailable. Или Clipboard.HasFormat.



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

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.061 c
2-1138617068
box
2006-01-30 13:31
2006.02.19
Связь адотабле и адоКвери


15-1138317266
Виктор8
2006-01-27 02:14
2006.02.19
Delphi 2005


6-1131551799
Леонид Федьков
2005-11-09 18:56
2006.02.19
Копирование файлов с сайта


15-1138438980
ArtemESC
2006-01-28 12:03
2006.02.19
Файлы chm


1-1137654092
_white_
2006-01-19 10:01
2006.02.19
Как найти в другой программе нужный компонент