VPF::кнопки в StringGrid - Форум программистов

z006

Дата 22.10.2010, 23:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

можно-ли возле каждой записи поставить какую-то кнопку?просто надо чтоб возле каждой записи был какой-то баттон,чтоб нажать,и по нему открылась новая форма,с возможностью манипулирования записью.вобщем все это понятно как делать,интересует сама возможность подпихнуть баттоны в StringGrid,есть-ли таковая?

~FoX~

Дата 24.10.2010, 11:57 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

z006, Можно конечно... Но я бы на твоем месте рисовал кнопку при попадании на ячейку фокуса или клика...Выглядит лучше и кнопка не загараживает содержимое... А что бы не генерить убойное количество кнопок создаем одну и показываем когда необходимо..

Код


type 
  TForm1 = class(TForm)
//...................
    procedure BtnClick(Sender: TObject);
  private
    Btn: TButton;
//...................

rocedure TForm1.FormCreate(Sender: TObject);
begin
  with Sender as TForm1 do begin
    Btn:= TButton.Create(Self);
    Btn.Parent := Self;
    Btn.Height := StringGrid1.DefaultRowHeight;
    Btn.Width := StringGrid1.DefaultRowHeight;
    Btn.Caption := '*';
    Btn.Hint := 'Hint';
    Btn.ShowHint := true;
    Btn.OnClick := BtnClick;
    Btn.Visible := false;
  end;
end;

//onSelectCell
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  CR: TRect;
begin
  with (Sender as TStringGrid) do begin
    if ACol = 3 then begin //номер столбца в которм надо показывать кнопу
      CR := StringGrid1.CellRect(ACol, ARow);
      Btn.Left := CR.Right - BOpen.Width+3;
      Btn.Top := CR.Top+Top+2;
      Btn.Visible := true;
    end //if
    else Btn.Visible := false;
  end;
end;

procedure TForm1.BtnClick(Sender: TObject);
begin
  with (Sender as TButton) do begin
     // обработчик кнопки
  end;
end;

Это сообщение отредактировал(а) ~FoX~ - 24.10.2010, 11:59

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

…множественность никогда не следует полагать без необходимости…

z006

Дата 25.10.2010, 00:42 (ссылка)

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

Загрузка ...

Шустрый

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

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

ооо,это уже интересно,спасибо.
а что такое BOpen(33 строка)?
у меня на него ругается....

~FoX~

Дата 25.10.2010, 16:16 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Код


Btn.Left := CR.Right - Btn.Width+3;

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

…множественность никогда не следует полагать без необходимости…

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