рефераты конспекты курсовые дипломные лекции шпоры

Раздел Программирование
/
Begin DateEdit.Visible := false; CheckBox1.Visible := false; if (gdFocused in State) then

Реферат Курсовая Конспект

Выберите учебное заведение

Begin DateEdit.Visible := false; CheckBox1.Visible := false; if (gdFocused in State) then

Begin DateEdit.Visible := false; CheckBox1.Visible := false; if (gdFocused in State) then - раздел Программирование, Дополнительные кнопки Delphi TSpeedButton и TBitBtn Begin If Acol=1 Then Begin ...

begin
if ACol=1 then

begin
DateEdit.Text:=StringGrid1.Cells[ACol, ARow];
DateEdit.Left := Rect.Left + StringGrid1.Left+2;
DateEdit.Top := Rect.Top + StringGrid1.top+2;
DateEdit.Width := Rect.Right -Rect.Left;
DateEdit.Height := Rect.Bottom - Rect.Top;
DateEdit.Visible := True;
exit;

end;

if ACol=4 then
begin
CheckBox1.Caption:=StringGrid1.Cells[ACol, ARow];

if CheckBox1.Caption='.aiao' then
CheckBox1.Checked:=true
else
CheckBox1.Checked:=false;

CheckBox1.Left := Rect.Left + StringGrid1.Left+2;
CheckBox1.Top := Rect.Top + StringGrid1.top+2;
CheckBox1.Width := Rect.Right - Rect.Left;
CheckBox1.Height := Rect.Bottom - Rect.Top;
CheckBox1.Visible := True;
exit;

end; end; end;

Ну и конечно же поймать событие OnClick компонента CheckBox1, чтобы записать изменённое значение обратно в сетку:

Развернуть

Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Дополнительные кнопки Delphi TSpeedButton и TBitBtn

Глава Обзор дополнительных компонентов Delphi...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Begin DateEdit.Visible := false; CheckBox1.Visible := false; if (gdFocused in State) then

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Procedure TMainForm.StartBtnClick(Sender: TObject); begin Form2.ShowModal; // Показываю вторую форму
if Form2.ModalResult=mrOk then Application.MessageBox('Вы нажали кнопку OK', 'Вы нажали'); if Form2.ModalResult=mrCancel then Application.MessageBox('Вы нажали кно

If (значение in State) then Выполнить действие
Именно так я проверяю во второй строчке кода наличие значения gdFocused. И только если ячейка, которую надо прорисовать имеет фокус, выполняю следующие действия. Но перед этим я прячу нашу м

Procedure TMainForm.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked=true then
CheckBox1.Caption:='.aiao' else CheckBox1.Caption:='Oieino'; StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:=CheckBox1.Caption; end;

If CheckListBox1.Checked[0] then
… Я перебираю все элементы, поэтому в квадратных скобках указываю параметр i. Текст строки можно узнать в свойстве Items компонента CheckListBox1. Чтобы у