Главная страница
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.076 c
1-1137595538
Maverick
2006-01-18 17:45
2006.02.19
MainMenu + Icon + MDI


1-1137606165
Volf_555
2006-01-18 20:42
2006.02.19
Как извлечь иконку из *.exe и добавить в TImageList?


4-1133766431
alex_1234
2005-12-05 10:07
2006.02.19
"Обрыв" модема ???


6-1131526303
Ezorcist
2005-11-09 11:51
2006.02.19
Обработчики событий у компонента TServerSocket


15-1138618567
Ega23
2006-01-30 13:56
2006.02.19
Народ, а у вас всегда так?