tstringgrid

    1熱度

    1回答

    在拉撒路(也可能DELPHI)文檔約grids,我們可以找到的InsertRow功能下一描述: Function InsertRow Inserts a row in the grid and sets the Key-Value pair. Returns the index of the newly inserted row. 這是什麼鍵值對?

    2熱度

    1回答

    在tStringGrid OnSelectCell事件的OnDrawCell事件給了我一個「矩形」記錄,讓我知道那裏的真實像素座標爲: OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); 另手,OnSelectCell只給我行/列座標。 OnSelectCell(Sender

    0熱度

    2回答

    我嘗試從外部選擇或單擊單元格。 當我使用tStringGrid.Col和tStringGrid.Row來選擇一個單元格時,onSelectCell事件運行兩次。 我該如何處理一次? 如果我使用tStringGridSelectCell事件來避免此問題,選擇矩形不會移動到該位置。 type TForm1 = class(TForm) StringGrid1: TStringGri

    5熱度

    2回答

    我有一個窗體上有1個FixedCol和1個FixedRow的TStringGrid對象。我希望能夠在用戶單擊該行內的任何單元格時在對象上選擇整行。此選擇也必須對用戶可見(我希望該行改變顏色)。 編輯:把goRowSelect放在對象的選項上。現在有辦法在固定列中的某個單元格點擊時選擇該行嗎?

    1熱度

    1回答

    我想爲TStringGrid實現一個FillCell過程。我想用某種顏色填充某個單元格,但僅當單元格(行)沒有被選中時填充。 procedure TMyStrGrid.FillCell(Rect: TRect; aColor: TColor); begin //if NOT (gdSelected in State) then <---- how do I obtain the 'State'

    -2熱度

    1回答

    我有一個窗體中的TStringGrid組件的數量。我想要使​​用Tab鍵在StringGrid之間移動。 問題是,當goTabs被激活時,它很好地在StringGrid的單元之間移動,但是一旦選擇了右下角的單元格,下一個選項卡將選中相同StringGrid的左上角單元格。 我該如何重寫? 謝謝。

    5熱度

    3回答

    此鏈接/圖片顯示了我想用TStringGrid實現的內容。 此鏈接/ PIC展示一下我下面的代碼導致。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TFor

    0熱度

    2回答

    我有一個字符串網格,從中我可以刪除列。我定義了一個允許我使用DeleteColumn方法的CustomStringGrid類型。 這是它的外觀: TCustomStringGrid = class(TStringGrid) [...] With tCustomStringGrid(mygrid) do DeleteColumn(col) end; 有類似增加一列的東西嗎?我試過Ins

    -1熱度

    1回答

    所以我有一個PHP代碼來跟蹤我的遊戲服務器,如果它是聯機或脫機。 但我嘗試使用HTML內的回聲,但它輸出着名的T_String錯誤。 我的代碼: <table border="1" bgcolor="#fff"> <tr> <td>SERVER</td> <?php $fp = fsockopen("some ip", an port, $errno, $errstr); if

    0熱度

    1回答

    我正在使用Delphi 10.1柏林來製作多設備應用程序。我有一個TStringGrid爲了列出查詢中的一些數據。我也有一個彈出菜單(編輯,刪除,...),但爲了編輯/刪除一個項目,我必須使用鼠標左鍵單擊一個單元格。 在顯示彈出式菜單之前,是否可以僅使用右按鈕「選擇一行」? 我想: procedure TForm1.StringGrid1MouseDown(Sender: TObject; But