【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,DataView.pas,希望对大家有所帮助!
unit DataView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls;
type
TDataViewFrm = class(TForm)
DBGrid1: TDBGrid;
PaintBox1: TPaintBox;
procedure FormCreate(Sender: TObject);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataViewFrm: TDataViewFrm;
implementation
uses Resource, DM;
{$R *.dfm}
procedure TDataViewFrm.FormCreate(Sender: TObject);
begin
PaintBox1.OnPaint := ResourceFrm.BtnPaint;
end;
procedure TDataViewFrm.PaintBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TComponent(Sender).Tag := 1;
PaintBox1.Repaint;
end;
procedure TDataViewFrm.PaintBox1Click(Sender: TObject);
begin
Close;
end;
end.
上一篇:
DataUnit.pas
下一篇:
4种小菜缓解孕妈咪不适