Delphi de Ekran Klavyesi Yazmak

Yazan: admin

8 Ekim 2010

Reklam Alanı

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;

type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
a:Integer;
begin
DrawGrid1.Font.Color:=clRed;
DrawGrid1.Font.Size:=15;
DrawGrid1.Font.Style:=[fsbold];
if (ACol=0) and (ARow=1) then
begin
Rect:=DrawGrid1.CellRect(ACol,ARow);
DrawGrid1.Canvas.TextRect(rect,75,2,’B');
end;
if (ACol=0) and (ARow=0) then
begin
Rect:=DrawGrid1.CellRect(ACol,ARow);
DrawGrid1.Canvas.TextRect(Rect,25,2,’A');
end;

end;

procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if ACol=0 then ShowMessage(‘a’);
end;

end.
dfm dosyası

object Form1: TForm1
Left = 192
Top = 107
Width = 870
Height = 640
Caption = ‘Form1′
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘MS Sans Serif’
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DrawGrid1: TDrawGrid
Left = 120
Top = 96
Width = 409
Height = 353
FixedCols = 0
FixedRows = 0
TabOrder = 0
OnDrawCell = DrawGrid1DrawCell
OnSelectCell = DrawGrid1SelectCell
end
end

Alıntıdır.

Etiketler : ekran klavyesi kodları, ekran klavyesi, ekran klavyesi yazmak, klavye komutları, klavye kodları

administrator2009-08-30 16:24:18

Delphi de Ekran Klavyesi Yazmak

Yorum yapın

Arama

Select Language

Site Değerlendirme Anketi

Facebook Arkadaşlarımıza Katılın

Sık Kullanılanlar

Panel

Kategoriler

Bağlantılar