Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Баттон и буфер обмена

Автор: Rupor 20.7.2009, 08:22

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

Автор: niteo 20.7.2009, 08:50

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

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

Код


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. Там есть ВСЁ

Автор: Rupor 20.7.2009, 09:10

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

Автор: Rupor 20.7.2009, 11:33

А как с 1 быть?

Автор: niteo 20.7.2009, 12:11

Жмешь на кнопку 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