VPF::Баттон и буфер обмена - Форум программистов

Rupor

Дата 20.7.2009, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 4.7.2009

Репутация: нет
Всего: нет

Вопроса 2.
1) Как сделать кнопку выполняющую 2 действия, например, "Play/Stop" нажали на кнопку - происходит 1 событие, опять нажали - другое.
2) Как отследить событие, что пользователь, что-то скопировал в буфер обмена. И если это текст, сохранить этот текст в буфер обмена под таким видом:
Время копирования Содержимое
Заранее благодарен.

niteo

Дата 20.7.2009, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Для кнопки используй флаги/счетчик нажатий/контрол с "залипанием"

Для Буфера обмена вот кусочки кода.

Код


procedure PutStringIntoClipBoard(const Str: WideString);
var
  Size: Integer;
  Data: THandle;
  DataPtr: Pointer;
begin
  Size:=Length(Str);
  if Size = 0 then exit;
  if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
    Clipboard.AsText:=Str
  else
  begin
    Size:=Size shl 1 + 2;
    Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
    try
      DataPtr := GlobalLock(Data);
      try
        Move(Pointer(Str)^, DataPtr^, Size);
        Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data);
      raise;
    end;
  end;

end;


function GetStringFromClipboard: WideString;
var
  Data: THandle;
begin
  if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
    Result:=Clipboard.AsText
  else
  begin
    Clipboard.Open;
    Data := GetClipboardData(CF_UNICODETEXT);
    try
      if Data <> 0 then
        Result := PWideChar(GlobalLock(Data))
      else
        Result := '';
    finally
      if Data <> 0 then GlobalUnlock(Data);
      Clipboard.Close;
    end;
  end;
end;

Взято из DRKB. smile

Для более полной информации см MSDN по поиску SetClipboardViewer. Там есть ВСЁ

Это сообщение отредактировал(а) niteo - 20.7.2009, 08:52

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

Rupor

Дата 20.7.2009, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 4.7.2009

Репутация: нет
Всего: нет

Со 2 вопросом разобрался. Посмотрел сообщения буфера в MSDN.

Rupor

Дата 20.7.2009, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 4.7.2009

Репутация: нет
Всего: нет

А как с 1 быть?

niteo

Дата 20.7.2009, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Жмешь на кнопку 1 раз - флаг ставишь в True
Жмешь на кнопку 2 раз - флаг ставишь в False

Код


// Глобальная 
var
  flBtnPush : Boolean = False;

procedure TForm1.Button1Click(Sender: TObject);
begin
  flBtnPush := Not flBtnPush;
  if flBtnPush then // Кнопка нажата 1 раз
  ...
  else // Кнопка нажата 2 раз
  ...

end;

Добавлено через 2 минуты и 2 секунды
Вообще способов реализации достаточно много.
ИМХО это самый простой smile

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »