Главная страница
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
4-1133630611
Bolek
2005-12-03 20:23
2006.02.19
работа со службой


4-1133550476
Хинт
2005-12-02 22:07
2006.02.19
Как избежать TerminateProcess?


15-1138706670
YurikGL
2006-01-31 14:24
2006.02.19
ГОСТ на маркировку


1-1136990344
DelphiLexx
2006-01-11 17:39
2006.02.19
Сохранить рисунок с TPanel


2-1138464552
Гаврилов В.А.
2006-01-28 19:09
2006.02.19
Как получить значение arccos